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Editorial 


Große Programme für den kleinen Home-Computer 


Herausgeholt, was aus dem derzeit preisgünstigsten aller 
Home-Computer herauszuholen ist, haben unsere freien ZX-81- 
Fans aus ihren Rechnern. Unsere Programm-Tester, die nicht 
gerade mit heller Begeisterung daran gingen, diesen Compu¬ 
terwinzling an einen professionellen Drucker anzuschließen, 
staunten nicht schlecht, als sie unter den Einsendungen auf 
Programme stießen, die mit einem Personal-Computer nicht 
besser darzustellen wären. 

Inzwischen beherrschen offensichtlich mehr ZX-81-Besitzer, 
als wir ahnten, die Maschinensprache. Für diejenigen unter 
Ihnen, die sich bisher noch nicht mit kombinierten BASIC/Ma- 
schinencode-Listings befaßten, hier noch einige Tips: 

* Zuerst wird das BASIC-Listing eingegeben und auf Kassette 

abgespeichert. Dann wird die MC-Einlese-Routine, die sich 
am Ende des BASIC-Programmes befindet, direkt gestartet. 
Diese Startadressen sind bei jedem Programm verschieden. 
Nachdem man die Routine gestartet hat, wird auf dem Bild¬ 
schirm die erste Adresse des Maschinenprogramms ausgege¬ 
ben. Jetzt muß man nur noch die entsprechende Dezimal- 
Zahl aus dem beigefügten Maschinencode-Listing eintippen. 
Dieses Listing wird Zahl für Zahl von links nach rechts 
zeilenweise in den Rechner eingegeben. Ist das geschehen, 
meldet sich das Programm mit einer Eingabe-Bestätigung. 
Übrigens: Die meisten Maschinenprogramme dieser CHIP- 

Special Ausgabe werden von der MC-Einlese-Routine in REM- 
Zeilen am Anfang der jeweiligen BASIC-Programme abgelegt. 
Den Speicherplatz,den diese Maschinenprogramme benötigen, 
verschafft man sich am besten durch das Programm REM- 
MASTER (ebenfalls in dieser Ausgabe), welches beliebig 
lange REM-Zeilen automatisch generiert. Diese REM-Zeilen 
werden durch POKE 16510,0 vor dem Editiren geschützt, in¬ 
dem die Zeilennummer in 0 umgewandelt wird. Somit kann 
der BASIC-Editor des ZX-81 nicht mehr auf sie zurückgrei¬ 
fen. Durch POKE 16510,1 erhält man nun eine "normale" 
BASIC-Zeile, die jetzt auch wieder editiert werden kann. 
Bei dieser Umwandlung muß man jedoch prüfen, ob sich 
nicht schon eine Programmzeile mit der Nummer 1 im Rech¬ 
ner befindet. Sollte dies der Fall sein, muß sie gelöscht 
werden, da der ZX-81 sonst abstürzen würde. 

* Falls Sie sich beim Eintippen des Listings etwas Arbeit 
ersparen wollen, können Sie die erläuternden Texte hinter 
REM-Anweisungen weg lassen. Die Zeilennummer und das 
Statment REM müssen Sie jedoch immer mit eintippen, da 
diese Programmzeilen unter Umständen angesprungen werden. 

* Speichern Sie grundsätzlich jedes eingetippte Programm 
vor dem ersten Start mit RUN auf Kassette ab, da sonst 
eventuell - wenn Sie sich an wichtigen Stellen vertippt 
haben - die ganz Mühe umsonst gewesen sein kann. 

Wir wünschen Ihnen beim Eingeben viele PEEK- und POKE-Feh- 
1er. 

Ihre Redaktion CHIP-Special 
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Computer-Bücher 
für alle Fälle: 


HC • Mein 
Home-Computer 

Die junge Buchreihe zum 
Einsteigen, Spielen und Lernen 

CHIP WISSEN 

Die zuverlässigen Bücher für das 
Computerhobby, für Schule und 
Ausbildung, für Büro und Betrieb 


Diese Einführung ,,für alle", insbe¬ 
sondere für Nichttechniker und An¬ 
fänger, bringt in leicht les- und faß¬ 
barer Form die gesamten Grundla¬ 
gen der Computerei. Sie soll Inter¬ 
esse wecken für ein Hobby, das 
den Computer in den Dienst des 
Menschen stellen hilft — auch und 
gerade im eigenen Wohnzimmer. 
Jeder kann lernen, wozu solch ein 
Rechner gut ist, und somit seine 
Distanz zum Computer verringern. 

Willis, Jerry/ 

Pol, Bernd 

Was der Mikro¬ 
computer alles 
kann 

Reihe CHIP WISSEN 
366 Seiten, 

100 Abbildungen, 

3. Auflage 1984 
33,- DM 

ISBN 3-8023 0643 0 



Verbindliche Bestellung 


Menge 

Titel 

Preis 











Absender: 


X 

Üatunn Unterschrift 


Was der 

Mlkrocoinpater 
aileskann 



CriF- 


VOGEL-BUCHVERLAG 

WÜRZBURG 

Postfach 67 40, 8700 Würzburg 1 


Pol, Bernd 
Wie man in 
BASIC program¬ 
miert 

Reihe CHIP WISSEN 
368 Seiten, 

16 Abbildungen, 

3 Auflage 1984 
30,- DM 

ISBN 3 8023-0637-6 


Ein Buch für Praktiker, und mehr 
als nur eine Einführung! An zwei 
bis ins Detail ausgearbeiteten Fall¬ 
studien werden die Grundlagen des 
Programmierens verdeutlicht und 
die wichtigsten BASIC-Bestandteile 
eingehend besprochen. Vor allem: 
Wie ist ein Problem zu lösen? 
Warum ist das so formuliert? Wie 
wendet man Programmiertechniken 
mit BASIC an? Diese und ähnliche 
Fragen werden beantwortet. 


Guss, Thomas 
Der Mikrocom¬ 
puter ZX 81 im 
Einsatz 

Reihe HC - 
Mein Home-Computer 
112 Seiten, 
zahlr. Abbildungen 
und Listings 
2. Auflage 1984 
20,- DM 

ISBN 3 8023-0791-7 


Sacht, Hans-J. 
BASIC-Versionen 
im Vergleich 

Reihe CHIP WISSEN 
228 Seiten, 

58 Abbildungen, 

2. Auflage 1984 
33,- DM 

ISBN 3-8023 0752-6 


21 Spiele voller Spannung, Action 
und bewegter Grafik — speziell für 
den Atari 600/800 XL geschrieben 
“ warten nur darauf, gestartet zu 
werden. Anhänger bewegter Grafik 
— Anfänger wie Fortgeschrittene — 
kommen voll auf ihre Kosten: Jeder 
kann diese Programme analysieren 
und verstehen — sieht, welche raf¬ 
finierten Programmiertechniken die 
außergewöhnlichen Fähigkeiten 
des Atari ausnützen. 


James/Gee/ 

Ewbank 

Das Atari- 

Spielebuch 

für 600 XL/800 XL 

Reihe HC - 
Mein Home-Computer 
184 Seiten, 
zahlr. Abbildungen, 

21 Spielprogramme, 
30.- DM, 1984 
ISBN 3-8023-0788 7 




Tatzl. Gerfried 
Vom Taschen¬ 
rechner zum 
Home-Computer 

Reihe HC - 
Mein Home-Computer 
272 Seiten, 
zahlr. Abbildungen, 
38,- DM, 1984 
ISBN 3-8023 0772-0 



Kinder und Jugendliche, die im 
Umgang mit Computern und der 
Programmiersprache BASIC noch 
keine Erfahrungen haben, finden 
hier das richtige Buch: Eine Ge¬ 
schichte vom Raumschiff und dem 
Planeten ,,Besik" mit lockeren Tex¬ 
ten und lebendigen Illustrationen 
bringt vielseitige Unterhaltung und 
schafft den erforderlichen Durch¬ 
blick, um auch selbst kleine BASIC- 
Programme schreiben zu können. 

Scholz, Eberhard 
Weltraum- 
BASIC-Aben- 
teuer mit dem 
ZX 81 
für junge 
Computerfreunde 
Reihe HC - 
Mein Home-Computer 
120 Seiten, 

38 Abbildungen, 

18.- DM, 1984 
ISBN 3-8023 0781 X 


Guss, Thomas 
Was der ZX 
Spectrum alles 
kann 

Reihe HC - 
Mein Home-Computer 
160 Seiten, 
zahlr. Abbildungen 
und Listings, 

28,- DM, 1984 
ISBN 3-8023-0762-3 




Anhand aktionsgeladener und teils 
kniffliger Spiele werden Sie mit 
Programmiertechniken und Tricks 
vertraut gemacht. Wenn Maschi¬ 
nencodeprogramme eingesetzt 
sind, werden hinreichende Erläute¬ 
rungen gegeben. Das intensive Ar¬ 
beiten mit diesem Buch wird Ein¬ 
steigern wie Fortgeschrittenen glei¬ 
chermaßen Freude bereiten, neue 
Perspektiven eröffnen und zum 
kreativen Computern anregen. 


Senftleben, D. 
Start mit 
Atari-Logo 

Reihe HC - 
Mein Home-Computer 
216 Seiten, 
zahlr. Abbildungen, 
30,- DM. 1984 
ISBN 3-8023-0794-1 



In dieser Einführung wird mit 
Grafik, Text und Musik gespielt, 
gearbeitet, experimentiert. Mittels 
Schildkrötengrafik wird das kleine 
Logo-Einmaleins in 12 Lektionen 
entwickelt. Große Bildschirmfotos 
machen die Lektionen anschaulich 
und regen zur Mitarbeit an. Dank 
des bausteinorientierten Konzepts 
kann jeder seine eigenen Teilbau¬ 
steine erzeugen und sie zu neuen 
größeren Blöcken zusammenfügen 
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Computer-Bücher 
für alle Fälle: 


HC • Mein 
Home-Computer 

Die junge Buchreihe zum 
Einsteigen, Spielen und Lernen 

CHIP WISSEN 

Die zuverlässigen Bücher für das 
Computerhobby, für Schule und 
Ausbildung, für Büro und Betrieb 



Computengrafik 

2D'iind3D- 

ProgrammieriiAg 


Pomaska, Günter 
Computergrafik 
2D- und 3D- 
Programmierung 

Reihe CHIP WISSEN 
242 Seiten, 
zahir Abbildungen, 
mit Farbanhang, 
40,- DM, 1984 
ISBN 3-8023 0759 3 


Auch der Hobby-Anwender sollte 
Vorkenntnisse in einer Program¬ 
miersprache und in der analyti¬ 
schen Geometrie haben. Das ver¬ 
wendete HewIett-Packard-BASIC 
ist so mächtig, daß eine Implemen¬ 
tierung in FORTRAN oder Pascal 
keine Schwierigkeiten bereitet. Alle 
Aufgaben und Beispiele führen zu 
weiteren Anwendungsmöglichkei¬ 
ten: z.B. Businessgrafiken, Präsen¬ 
tationsgrafiken, SD-Grafik u.a.m. 


Baumann, Rüdeger 
Grafik mit dem 
Home-Computer 

Reihe HC - 
Mein Home-Computer 
328 Seiten, 
zahir Abbildungen, 
38,- DM, 1984 
ISBN 3-8023-0769 0 



Der Leser dieser Einführung in die 
Grafik-Programmierung benötigt le¬ 
diglich Grundkenntnisse Im Pro¬ 
grammieren mit BASIC. Der Autor 
hat ein Höchstmaß an Strukturie¬ 
rung und Kommentierung der Pro¬ 
gramme angestrebt. Sie wurden 
auf dem Commodore 64 entwickelt 
und getestet — sind aber so ge¬ 
schrieben, daß sie sich leicht auf 
andere grafikfähige Mikrocomputer 
übertragen lassen. 


Das Buch vermittelt die systemati¬ 
sche Entwicklung von Programmen 
in Pascal, das in Verbindung mit 
dem UCSD Betriebssystem ein 
ideales Programmierwerkzeug dar¬ 
stellt und sich nicht nur im Ausbil¬ 
dungsbereich durchgesetzt hat. Es 
wendet sich in erster Linie an den 
Anfänger, der im Selbststudium 
oder unter Anleitung in Schule oder 
Seminar das Programmieren erler¬ 
nen will. 

Teiwes, Eike 
Programment¬ 
wicklung in 
UCSD-Pascal 

Reihe CHIP WISSEN 
344 Seiten, 
zahir Abbildungen 
150 Seiten Übungen, 

28,- DM, 1984 
ISBN 3 8023 0760 7 
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Verbindliche Bestellung 


Menge 

Titel 

Preis 











Absender: 


X 

Datum Unterschrift 


VOGEL-BUCHVERLAG 

WÜRZBURG 

Postfach 67 40, 8700 Würzburg 1 


Sacht, Hans-J. 
Daten, Disket¬ 
ten, Dateien 

Reihe CHIP WISSEN 
300 Seiten, 
zahir. Abbildungen, 
38,- DM. 1984 
ISBN 3-8023-0751 8 


Senftleben, D. 
Programmieren 
mit Logo 

Reihe CHIP WISSEN 
352 Seiten, 
zahir. Listings, 

2, Auflage 1984 
30,- DM 

ISBN 3-8023 0744 5 




Sacht, Hans-J. 

Von der passiven 
zur aktiven 
Computerei 

Reihe CHIP WISSEN 
332 Seiten, 

107 Abbildungen, 

2. Auflage 1983 
38,- DM 

ISBN 3-8023-0665-1 

Sacht, Hans-J. 
Vom Problem 
zum Programm 

Reihe CHIP WISSEN 
326 Seiten, 

108 Abbildungen, 

2 Auflage 1984 
38,- DM 

ISBN 3-8023-0715 1 


Tatzl, Gerfried 

Praktische 

Problemanalyse 

Problem- 

Engineering 


Wernicke, Joachim 
Computer für 
den Kleinbetrieb 

Reihe CHIP WISSEN 
148 Seiten, 

12 Abbildungen, 

3. Auflage 1984 
25,- DM 

ISBN 3 8023-0711-9 


Baumann, Rüdeger 
Programmieren 
mit Pascal 

Reihe CHIP WISSEN 
272 Seiten, 
zahir. Abbildungen, 

3. Auflage 1984 
23,- DM 

ISBN 3-8023-0667 8 

Baumann, Rüdeger 
Spiel, Idee und 
Strategie pro¬ 
grammiert in 
Pascal 
Reihe CHIP WISSEN 
326 Seiten, 
zahir. Abbildungen, 
35,- DM, 1983 
ISBN 3-8023-0732 1 

Reihe CHIP WISSEN 
320 Seiten, 

53 Abbildungen, 

45,- DM, 1983 
ISBN 3-8023 0745-3 


Cooipater 

für den 
Kkilübetrkb 





— _ py - 


Wer anspruchsvollere Programme 
in BASIC erstellen will, muß mit 
Diskettenspeicherung arbeiten. Der 
Verfasser erklärt, wie Betriebssy¬ 
steme funktionieren und wie man 
Dateien aufbaut; er hilft allen, die 
Programme für Tischcomputer ent¬ 
wickeln wollen und deshalb die 
Verarbeitung extern gespeicherter 
Daten benötigen. Hinweise zum Be¬ 
nutzen verschiedener Disketten Be¬ 
triebssysteme runden das Buch ab. 


Benutzerfreundlichkeit, Klarheit, 
Leistungsfähigkeit und Vielseitig¬ 
keit der Programmiersprache Logo 
haben bereits viele Freunde im 
Ausbildungs- und Freizeitbereich 
gefunden. Die besondere Stärke 
liegt im funktionsorientierten Kon¬ 
zept. Dieses Arbeitsbuch ist eine 
unterrichtserprobte Einführung in 
Logo, die bis zu kompletten Pro¬ 
grammen reicht. Alle Programme 
wurden auf einem Apple Ile erstellt. 


Der Computer ist die nützlichste 
Büromaschine, die je erfunden 
wurde. Dieses Buch weist als prak¬ 
tischer Leitfaden gezielt den richti¬ 
gen und zugleich risikolosen Weg 
zur eigenen Computerlösung nach 
Maß, unterstützt durch eine Reihe 
von Checklisten und Formularmu¬ 
stern aus der Praxis. Alles Nützliche 
für den Einstieg sowie Arbeitsvor¬ 
gänge und Programme werden ver¬ 
mittelt. 


























































Lernspiel 



Beschreibung des Programmes 
( 6735 Bytes) 

Kennen Sie die Hauptstädte der 
wichtigsten Länder? Wenn Sie dieses 
Programm eingetippt haben, wissen 
Sie wenigstens, daß es 174 Länder 
gibt. Das Programm wird mit GOTO 
100 gestartet und kann auf zwei 
Arten durchgespielt werden, Modus A 
und Modus B. 

LERNMODUS: 

Im Modus A gibt man zunächst ein 
Land seiner Wahl ein und drückt 
Taste NL. Der Computer liefert dann 
Name und Lage der Hauptstadt dieses 
Landes. Mit NL kann das nächste 
Land gewählt werden. Doppelnamen 
werden durch Taste - (SHIFT + J) 
getrennt (z.B. Sierra-Leone). Der 
Modus kann durch Eingabe von STOP 
beendet werden. Einen Überblick 
über alle gespeicherten Hauptstädte 
kann man sich verschaffen, wenn man 
im Modus A oder B "PRUEF" eingibt. 
Die dann folgende Anzeige von Namen 
und Lage aller Städte kann durch 
Druck irgendeiner Taste verlangsamt 
oder mit NL gestoppt werden. 
ABFRAGEMODUS: 

Im Modus B gibt der Computer Län¬ 
dernamen vor und fragt nach der 
Hauptstadt. Der Spieler gibt den 
von ihm angenommenen Namen der 
Hauptstadt ein und drückt NL. Ist 
der Name richtig, so bestätigt dies 
der Computer und zeigt die Lage der 
Stadt an. Der Spieler erhält einen 
Punkt. Nach Druck auf fJL gibt der 


Computer den nächsten Ländernamen 
vor. Ist der Name der Hauptstadt 
falsch, so wird dies angezeigt und 
es erscheint anschließend der rich¬ 
tige Städtename. Weiß der Spieler 
den Namen der Hauptstadt nicht, so 
kann er durch Eingabe von GO das 
Programm fortsetzen: es erscheint 
der Name der gesuchten Hauptstadt. 
Nach Druck der Taste NL wählt der 
Computer wieder einen neuen Länder¬ 
namen. So folgen aufeinander 10 
Ländernamen. Wählt der Spieler nun 
erneut den Modus B um weitere Län¬ 
dernamen durchzuspielen, so er¬ 
scheint zu Beginn eines neuen 
Spieles als "REKORD”die höchste bis 
dahin in einem Spiel erreichte 
Punktzahl. Wird in einem Spiel das 
Maximum von 10 Punkten erreicht, so 
wird dies gesondert angezeigt. Auch 
der Modus B kann jederzeit durch 
Eingabe von STOP beendet werden. 
Mit Eingabe von COPY kann das 
aktuelle Bild des Bildschirmes aus¬ 
gedruckt werden. Danach kehrt der 
Computer zum Programmanfang zurück. 
Im Programm werden die Koordinaten 
der Hauptstädte durch P $ bestimmt. 
Durch die nachfolgende FOR-Schleife 
werden Länder und Hauptstädte ein¬ 
gegeben. Danach wird P $ den varia¬ 
blen Feldern x und y zugewiesen. 
Mit (*) bleibt die bis dahin er¬ 
reichte Recordzahl eingespeichert. 
Soll das Spiel nach Modus B ganz 
neu begonnen werden, so wird END 
eingegeben. Peter Schuster 


1 

REM 

UELTKfiRTE 

40 

LET 

Z$ (3 




— 

45 

LET 

Z $ i 4 

i " In 



UOW P.SCHUSTER 

50 

LET 

Z$ i5 

1 = "1 BB * "HE H" 




er CT 

LET 

Z$ i6 

1 II"" 



EUER CHIP-SPECIHL 

60 

LET 

Z $ (7 





S5 

LET 

Z4 (S 

‘ioM HE HH vEi 

10 

LET 

flNZRHU = 174. 

70 

LET 

Z (9 

^ ’ P wi*H* m*iEB** 

20 

G 0 S' 

UB 1000 

75 

LET 

z $ i: 10 ) = 'Tw'VLm 

30 


Z 4 l 10.9) 

100 

REM 

GRhFik 

52 

LET 

z$ ( 1 ) ="r«ni >■■'”4" 

101 

LET 

REK=0 

35 

LET 

z$ (s;i ="ra m ün i" 

102 

LET 

hNZ =0 
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Lemspiel 


103 LET PUN=0 
105 CLS 

110 PRINT RT 4. .. 5" eViBTHM» “ n 


wmmamammm m 

120 PRINT TRB 1‘P« “ ^ 



150 PRINT The i;" jmmrnt r mn 


160 PRINT TRB 1;“ 
170 PRINT TRB 1;* 




1S0 PRINT TRB 1;" 


190 PRINT TRB 1; 


200 PRINT TRB 2; 


!10 PRINT TRB 4-; 


220 PRINT TRB 3; 

Wf* V" m “ 

230 PRINT TRB 3; 




240 PRINT TRB 4; 

■J[ JHU!" 

250 PRINT TRB 5; 


260 PRINT TRB 6 .i 


270 PRINT TRB 6; 
B 2 7 j '' T m" 

280 PRINT TRB 6.; 


TR 


TRB 2“ 


290 LET P=PEEK 16396+256*PEEK 1 
6397 +1 

291 POKE P+733.132 

292 PÜKE P+767,1 

293 LET HRLTr=0 

294 PR INT RT 0,0 ; *’ MODUS f R /B j “ 
296 IF INKEY$ = "‘* THEN GOTO 296 

298 IF INKEY $ = THEN LET HRLT 

= 1 

299 PRINT RT 0,13;“O.K." 

300 FÜR N=1 TO 10 

301 IF REK=0 OR HRLT=0 THEN GOT 
O 308 

302 PRINT RT 1,0, ** 

307 PRINT RT 1,0REKORD: ‘Y REK 

308 NEXT N 

310 IF PUN=10 THEN GOTO 8000 
313 IF HRLT=1 THEN PRINT RT 6,2 
0Z $ (PUN +1 , TO 3) ; TRB 20 : Z $ (PUN + 


1,4 TO 6); TRB 20.;'Z$ (PUN + 1.7 TO 9 


316 

IF 

RNZ=10 THEN 

GOTO 

5000 


317 

IF 

HRLT=1 THE 

N 

GOTO 

3000 


320 

PRI 

NT HT 0,0 

*' 1 

Ul EL CHE 

5 LRh 

•ID 

325 

DIM 

U$(1 , 16) 





327 

PRINT TRB 14; 





3 3 0 

LET 

N = 1 





CL" 

PRI 

NT RT 1 . N + 

1 

3; *‘'?’' 



370 

LET 

I$=INKEy$ 





380 

IF 

I4 = '"‘ THEN 


GOTO 3 

60 


390 

IF 

IS=CHR$ 11 

9 

THEN 

GOTO 

60 

f 

400 

IF 

IS=CHR$ 11 

Ö 

THEN 

GOTO 

44 

4 10 

LET 

U $ ( 1 , N ) = I 

S 




420 

PRI 

NT RT 1 , N + 

1 

3; U S i 1 

. N) 


430 

LET 

N=N + 1 





435 

IF 

N=17 THEN 

G 

OTO 440 


437 

GOT 

0 3 3 5 





440 

PRINT hT 1,N+ 

1 

3 



441 

IF 

U$ \ 1) =•' 




" 

THEN 

1 G 0 

TO 900 





442 

IF 

Ul$ (1) =’'PRU 

EF 


•• 

THEN 

: GOTO 2000 





443 

IF 

U$(1)=“5TD 

P 



• • 

THEN 

i G OT 0 800 





444 

IF 

US 1.1) =:’*END 




•• 

THEN 

1 GO 

TO 1500 





445 

IF 

US i; 1 ) =''cop 

Y 



** 

THEN 

1 GO 

T 0 700 





446 

IF 

HRLT=1 THE 

N 

GOTO 

3050 


447 

FÜR 

7=1 TO RN 

"7 

RHL 



450 

IF 

LS fZ) =US i 1 

) 

THEN 

GOT 0 

50 

1 

460 

NEX 

T Z 





470 

PRINT RT 0,0; 

" 

BEGRIFF UNDEF 


INIERBRR 
480 GOTO 300 

500 PRINT RT 0,0 ; ''HPT . -5TRDT : 


; H S i: z 

\ 



510 

IF INKEYS < > 

■"* THEN 

GOTO 750 

515 

) 

520 

LET BP=PEEK 

»: P + Y i z 

) +33 +X ( Z) 

POKE P+(XCZ 

)+33)+Y 

(Z),52 

530 

POKE P+iX(Z 

) +33) +Y 

(Z),BP 

550 

IF INKEYS < > 

*’■* THEN 

GOTO 311 

560 

GOTO 520 



600 

REM ä4^1!U 



610 

PRINT RT 1, 

N + 13; *’ 


620 

LET N=N-1 



630 

IF N<1 THEN 

LET N = 

1 

640 

LET US(i,N) 

= •* •' 


650 

GOTO 335 



700 

REM 
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710 PRINT RT 



G..0; 


, TRB 14,: 


7S0 

730 

750 

E*' 



760 
7' 6 5 
770 


CDPY 

GOTO 630 

LET = FINGER UON DER TflST 


LET 




R UON DER TR5T 


FOR 0=1 TO £0 
PRINT hT 2,ü:Y$i:0) 
NEXT 0 


775 FOR 0=1 TÜ S0 
760 PRINT RT 2 , O T $ ( G ) 
735 NEXT 0 


790 PRINT RT 2,1; 


795 G?jTO 510 
600 REM 

805 PRINT RT 0.0.;"IJR5 SIE WOLLE 


N SCHON RUFHOEREN” 


6 10 l? U S U B 1200 
630 FOR Y=1 TO 20 


64-0 PRINT RT 

iitUUiUÜM M 


0.0;"HIE 


UECK 


650 PRINT RT G 0 ; ZURUECK 
NFRNG 




ZUM R 


660 NEXT Y 

670 PRINT RT 0,11;’* 

'■:TRB 14-;“ 

6 90 G OT O 2 9 3 

900 REM 

901 PRINT RT 0,0; “5 IE HRBEN JR 
rIC H T S EIN G E G £ B E N ‘ ‘ 


90 5 G O S U B 12 0 0 

910 IF HRLT=1 THEN GOTO 3010 
9 20 G O T O 3 2 0 


1000 REM ÜSEOra 

1010 LET P$ = '‘ 1016102011190613 
16151205111920071929110510191123 
12060714120314131022160616161716 
17071327061615171210141407060715 
20060925112706141404161615151303 
14131104091406140714071414221216 
12061123150407121202131506131317 
16310513071415141311141313061202 
15141311131114061205131309150715 
12031526091609160512091706141204 
06151225141617310926092609161016 
11251617141210150714091707141012 
07141717142612120915162012021617 
06140623132511111124161516310714 
13041022203113031313141409270614 
07151022130315311607170412270715 
09121119171912050616151712061206 
12061731061515131211162006151311 
14261631141916160617132312170515 


14060916061418171516131514131631 

1917130609140616173114171120071 

0905091720061305112512161216151 

17161717" 

1020 QIM L$ (RNZRHL , 16!» 

1030 QIM ÜRNZRHL 16:i 
1040 DIM X( RNZRHLJ 
1050 DIM Y(RNZRHL) 

1060 FÜR E=1 TO RNZRHL 
1070 INPUT L$(E) 

1060 INPUT H$(E) 

1061 SCROLL 

1065 PRINT E;" ■'.,£$(£) 

1066 SCROLL 

1067 PRINT •' 'MHäiüE) 

1066 SCROLL 

1090 NEXT E 

1091 FÜR £=4 TO LEN P$ STEP 4 

1092 LET XiE/4)=UHL P4(E TÜ E+1) 

1093 LET Y(E/4)=UhL P4(E+2 TÜ E+ 
3) 

1094 NE>:T E 

1095 CLS 

1096 PRINT RT 10 5 : ‘'SHSiiHISB : S S 

ii [s ns" 

1099 PRUSE 100 

1100 RETURN . 

1200 REM [iSWgra} 

1210 FOR Y=1 TO 30 
1220 NEXT Y 

1230 RETURN 

1500 LET T$="NEUER RNFRNG" 

1505 PRINT RT 0,0-.;“ “ : 

1510 FÜR Y=1 TO 12 
1520 PRINT 

1530 PR INT RT 0 , Y + 10 ; T $ (Y ) 

1540 NEXT Y 

1550 GÜSUB 1200 

15 9 0 G OT C> 10 0 

2000 REM äEIHiH 

2005 FOR W=1 TÜ RNZRHL 

2010 PRINT RT X(W).Y(U);"ü" 

2020 PRINT RT 0 , O : H $ • W ) ; ’* 


2030 IF INKEY$<>‘"' THEN GOTO 205 
0 

2040 NEXT W 
2 0 5 0 G ü S LI B 1200 

2070 IF INKEY$=CHRS 116 THEN GOT 
ü 2050 
2060 NEXT U 


2' 090 
3000 
3005 
3010 


GOTO 1500 


REM 


rbfrsg: 


LET Z=INT (RND+RNZhHL)+1 
PRINT hT 0,0 ; LS (Z:i ; 


304-0 G O T' O 3 2 5 
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flBFRRG 


3050 REM 
3052 LET hNZ=HINZ + 1 

3054 IF Ul$ri}=“GO 
THEN GOTO 500 

3055 IF U $ (1) +” *' = H $ (Z J T H E N G Ü 

TO 4.000 

3060 PRINT flT 0.0;"DR5 IST FRL5C 
H 

3070 GOSUB 1200 
3090 PRINT RT O.O;” 

3095 GOTO 500 

4000 PRINT RT 0.0; ''DRS IST RICHT 
IG 

4010 LET PUN=PUN+1 
4020 GOSUB 1200 
4035 PRINT RT 0,0; '• 


4040 GOTO 510 
5000 PRINT RT 0,0; 


ENDE DES 


5001 PRINT TRB 14; ■* 


RND PUN > 3 RND PüN i 6 ’* S IND SCHON 
GUT” RND PUN>5 RND PUN<10 
5050 GOTO 5010 
8000 REM 
8005 CLS 

8010 PRINT RT 11,8;”WI iBW”;TR 
B 7; ''■M n ll‘';TRB &;”■ ■ B 

8020 PRINT TRB 9; ”S B n” B S (S 

^s\ la u [§” 

8030 PRINT TRB 9; ”B Äi“ B" 

8050 PRINT TRB 9;”B WBi" 

8060 PRINT RT 1,2; ' bsh h « 

. «--TRB 2 ; ”1 ", 1 % 811 

8 ■■ 

8065 PRINT TRB 2: ”8 I I I i I ■. 
■■ I % ”,ThB 2; -fmrn »■ I i 

II I 

8070 PRINT TRB 2;”l ■. I ■« l““r S 

I I I TRB 2; i II I % 

II I I 

8075 PRINT TRB 2;”fc—" I II I 


5008 IF PUN>REK THEN LET REK=PUN 

5009 IF HRLT=1 THEN GOTO 5050 

5010 GOSUB 1200 
5040 GOTO 102 

5050 PRINT RT 2,0;PUN;” PUNKT”;” 
E“ RND PUN<>1;” ”;”NUR SIE FLRSC 
HE” RND PUN<4;”SIND RUSREICHEND” 


8080 FOR G=:l TO 25 
8085 PRINT RT 9,G;' 
8090 NEXT G 
8100 GOTO 5010 
9000 ShUE '’KRRTg” 
9010 GOTO 30 


HPT „ -5TRDT: BRRSILIR 

BRRSILIEN 


LAND 3 VEREINIGTE ARABI 

STADT ABU-DHABI 



LAND 4 
STADT 

LAND 5 
STADT 

LAND 6 
STADT 

LAND 7 
STADT 

LAND 8 
STADT 


ANDORRA 

ANDORRA-LA-VELLA 

ANGOLA 

LUANDA 

ANTIGUA 
ST-JOHNS 

SAUDI-ARABIEN 

ER-RIAD 

ARGENTINIEN 

BUENOS-AIRES 


DATEN EUER WELTKARTE: 


LAND 1 
STADT 


AEGYPTEN 

KAIRO 


LAND 9 
STADT 

LAND 10 
STADT 


AUSTRALIEN 

CANBERRA 

BAHAMAS 

NASSAU 


LAND 2 
STADT 


AFGHANISTAN 

KABUL 


LAND 11 
STADT 


BAHRAIN 

MANAMA 
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LAND 12 

BANGLADESCH 

STADT 

DACCA 

LAND 13 

BARBADOS 

STADT 

BRIDGETOWN 

LAND 14 

BELGIEN 

STADT 

BRUESSEL 

LAND 15 

BELIZE 

STADT 

BELMOPAN 

LAND 16 

BENIN 

STADT 

PORTO-NOVO 

LAND 17 

INDIEN 

STADT 

DELHI 

LAND 18 

BOLIVIEN 

STADT 

LA~PAZ 

LAND 19 

BOPHUTHATSUANA 

STADT 

MONTSHIWA 

LAND 20 

BOTSUANA 

STADT 

GABORONE 

LAND 21 

BRASILIEN 

STADT 

BRASILIA 

LAND 22 

BRUNEI 

STADT 

SERIA 

LAND 23 

BULGARIEN 

STADT 

SOFIA 

LAND 24 

BURUNDI 

STADT 

BUJUMBURA 

LAND 25 

KAP-VERDE 

STADT 

PRAIA 

LAND 26 

KAMERUN 

STADT 

JAUNDE 

LAND 27 

KANADA 

STADT 

OTTAWA 

LAND 28 

TSCHECHOSLOWAKEI 

STADT 

PRAG 

LAND 29 

CHILE 

STADT 

SANTIAGO 

LAND 30 

CHINA 

STADT 

PEKING 


LAND 31 
STADT 

TAIWAN 

TAIPEI 

LAND 32 
STADT 

VATIKANSTADT 

IN-ROM 

LAND 33 
STADT 

KOLUMBIEN 

BOGOTA 

LAND 34 
STADT 

KOMOREN 

MORONI 

LAND 35 
STADT 

KONGO 

BRAZZAVILLE 

LAND 36 
STADT 

COSTA-RICA 

SAN-JOSE 

LAND 37 

STADT 

ELFENBEINKUESTE 
ABIDJAN 

LAND 38 
STADT 

KUBA 

HAVANNA 

LAND 39 
STADT 

ALGERIEN 

ALGIER 

LAND 40 
STADT 

DAENEMARK 

KOPENHAGEN 

LAND 41 
STADT 

DEUTSCHLAND(BRD) 
BONN 

LAND 42 
STADT 

DEUTSCHLAND(DDR) 
BERLIN 

LAND 43 
STADT 

MALEDIVEN 

MALE 

LAND 44 
STADT 

DSCHIBUTI 

DSCHIBUTI 

LAND 45 
STADT 

DOMINICA 

ROSEAU 

LAND 46 
STADT 

BHUTAN 

THIMBU 

LAND 47 
STADT 

ECUADOR 

QUITO 

LAND 48 
STADT 

IRLAND 

DUBLIN 

LAND 49 

STADT 

EL-SALVADOR 

SAN-SALVADOR 
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LAND 50 
STADT 

ZENTRALAFRIKA 

BANGUI 

LAND 69 
STADT 

HONDURAS 

TEGUCIGALPA 

LAND 51 
STADT 

SPANIEN 

MADRID 

LAND 70 
STADT 

INDONESIEN 

DJAKARTA 

LAND 52 
STADT 

AETHIOPIEN 

ADDIS-ABEBA 

LAND 71 
STADT 

IRAN 

TEHERAN 

LAND 53 
STADT 

FIDSCHI 

SUVA 

LAND 72 
STADT 

IRAK 

BAGDAD 

LAND 54 
STADT 

FAERGEER 

TGRSHAVN 

LAND 73 
STADT 

ISLAND 

REYKJAVIK 

LAND 55 
STADT 

FRANKREICH 

PARIS 

LAND 74 
STADT 

ISRAEL 

JERUSALEM 

LAND 56 
STADT 

GABUN 

LIBREVILLE 

LAND 75 
STADT 

ITALIEN 

ROM 

LAND 57 
STADT 

GAMBIA 

BANJUL 

LAND 76 
STADT 

JAMAIKA 

KINGSTON 

LAND 58 
STADT 

GHANA 

ACCRA 

LAND 77 
STADT 

JUGOSLAWIEN 

BELGRAD 

LAND 59 
STADT 

GRENADA 

ST.GEORGES 

LAND 78 
STADT 

KAMBODSCHA 

PHNOM-PENH 

LAND 60 
STADT 

GUATEMALA 

GUATEMALA 

LAND 79 
STADT 

KENIA 

NAIROBI 

LAND 61 
STADT 

AEQUATORIAL-GUIN 
MALABO 

LAND 80 
STADT 

KIRIBATI 

TARAWA 

LAND 62 
STADT 

GUINEA-BISSAU 

BISSAU 

LAND 81 
STADT 

NORDKOREA 

PJOENGJANG 

LAND 63 
STADT 

GUINEA 

CONAKRY 

LAND 82 
STADT 

SUEDKOREA 

SEOUL 

LAND 64 
STADT 

GUYANA 

GEORGETOWN 

LAND 83 
STADT 

ZYPERN 

NIKOSIA 

LAND 65 
STADT 

HAITI 

PORT-AU-PRINCE 

LAND 84 
STADT 

KUWAIT 

KUWAIT 

LAND 66 
STADT 

OBERVOLTA 

WAGA5UGU 

LAND 85 
STADT 

LAOS 

VIENTIANE 

LAND 67 
STADT 

GRIECHENLAND 

ATHEN 

LAND 86 
STADT 

LESOTHO 

MASERU 

LAND 68 
STADT 

SCHWEIZ 

BERN 

LAND 87 
STADT 

LIBERIA 

MONROVIA 
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LAND 88 

LIBYEN 

LAND 107 

NAURU 

STADT 

TRIPQLIS/BENGAS 

STADT 

NAURU 

LAND 89 

LIECHTENSTEIN 

LAND 108 

NIEDERLANDE 

STADT 

LIECHTENSTEIN 

STADT 

AMSTERDAM 

LAND 90 

LIBANON 

LAND 109 

ANTILLEN 

STADT 

BEIRUT 

STADT 

WILLEMSTAD 

LAND 91 

LUXEMBURG 

LAND 110 

NEPAL 

STADT 

LUXEMBURG 

STADT 

KATMANDU 

LAND 92 

MAROKKO 

LAND 111 

NEUSEELAND 

STADT 

RABAT 

STADT 

WELLINGTON 

LAND 93 

UNGARN 

LAND 112 

NICARAGUA 

STADT 

BUDAPEST 

STADT 

MANAGUA 

LAND 94 

MALAWI 

LAND 113 

NIGER 

STADT 

LILONGWE 

STADT 

NIAMEY 

LAND 95 

MALAYSIA 

LAND 114 

NIGERIA 

STADT 

KUALA-LUMPUR 

STADT 

LAGOS 

LAND 96 

MALI 

LAND 115 

JAPAN 

STADT 

BAMAKO 

STADT 

TOKIO 

LAND 97 

MALTA 

LAND 116 

NORWEGEN 

STADT 

VALLETTA 

STADT 

OSLO 

LAND 98 

MAURITIUS 

LAND 117 

OESTERREICH 

STADT 

PORT-LOUIS 

STADT 

WIEN 

LAND 99 

MEXIKO 

LAND 118 

PAKISTAN 

STADT 

MEXIKO 

STADT 

ISLAMABAD 

LAND 100 

MOSAMBIK 

LAND 119 

PANAMA 

STADT 

MAPUTO 

STADT 

PANAMA 

LAND 101 

MONACO 

LAND 120 

PAPUA-NEUGUINEA 

STADT 

MONACO 

STADT 

PORT-MORESBY 

LAND 102 

MONGOLEI 

LAND 121 

PARAGUAY 

STADT 

ULAN-BATOR 

STADT 

ASUNCION 

LAND 103 

THAILAND 

LAND 122 

PERU 

STADT 

BANGKOK 

STADT 

LIMA 

LAND 104 

MAURETANIEN 

LAND 123 

PHILIPPINEN 

STADT 

NOUAKCHOTT 

STADT 

MANILA 

LAND 105 

BIRMA 

LAND 124 

POLEN 

STADT 

RANGUN 

STADT 

WARSCHAU 

LAND 106 

NAMIBIA 

LAND 125 

PORTUGAL 

STADT 

WINDHOEK 

STADT 

LISSABON 


II 
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LAND 126 

KATAR 

LAND 145 

SOWJETUNION 

STADT 

DOHA 

STADT 

MOSKAU 

LAND 127 

MADAGASKAR 

LAND 146 

SRI-LANKA 

STADT 

TANANARIVE 

STADT 

COLOMBO 

LAND 128 

DOMINIK.REPUBLIK 

LAND 147 

SUDAN 

STADT 

SANTO-DOMINGO 

STADT 

KHARTUM 

LAND 129 

RUMAENIEN 

LAND 148 

FINNLAND 

STADT 

BUKAREST 

STADT 

HELSINKI 

LAND 130 

RUANDA 

LAND 149 

SURINAM 

STADT 

KIGALI 

STADT 

PARAMARIBO 

LAND 131 

GUADELOUPE 

LAND 150 

SYRIEN 

STADT 

BASSETERRE 

STADT 

DAMASKUS 

LAND 132 

SAINT-LUCIA 

LAND 151 

SCHWEDEN 

STADT 

CASTRIES 

STADT 

STOCKHOLM 

LAND 133 

SAINT-VINCENT 

LAND 152 

SWASILAND 

STADT 

KINGSTOWN 

STADT 

MBABANE 

LAND 134 

WESTSAMOA 

LAND 153 

TANSANIA 

STADT 

APIA 

STADT 

DARESSALAM 

LAND 135 

SAN-MARINO 

LAND 154 

TSCHAD 

STADT 

SAN-MARINO 

STADT 

NDJAMENA 

LAND 136 

SAO-TOME/PRINCIP 

LAND 155 

TOGO 

STADT 

SAO-TOME 

STADT 

LOME 

LAND 137 

SENEGAL 

LAND 156 

TONGA 

STADT 

DAKAR 

STADT 

NUKUALOFA 

LAND 138 

SESCHELLEN 

LAND 157 

TRANSKEI 

STADT 

VICTORIA 

STADT 

UMTATA 

LAND 139 

ALBANIEN 

LAND 158 

TRINIDAD/TOBAGO 

STADT 

TIRANA 

STADT 

PORT-OF-SPAIN 

LAND 140 

SIERRA-LEONE 

LAND 159 

TUNESIEN 

STADT 

FREETOWN 

STADT 

TUNIS 

LAND 141 

SINGAPUR 

LAND 160 

TUERKEI 

STADT 

SINGAPUR 

STADT 

ANKARA 

LAND 142 

SALOMONEN 

LAND 161 

TUWALU 

STADT 

HONIARA 

STADT 

FUNAFUTI 

LAND 143 

SOMALIA 

LAND 162 

UGANDA 

STADT 

MOGADISCHU 

STADT 

KAMPALA 

LAND 144 

SUEDAFRIKA 

LAND 163 

OMAN 

STADT 

PRETORIA 

STADT 

MASKAT 
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LAND 

164 

GROSSER!TANIEN 

STADT 

HANOI 

STADT 


LONDON 

LAND 170 

NORDJEMEN 

LAND 

165 

VEREINIGTE-STAA1 

STADT 

SANA 

STADT 


WASHINGTON 

LAND 171 

SUEDJEMEN 

LAND 

166 

JORDAN 

STADT 

ESCH-SCHAAB 

STADT 


AMMAN 

LAND 172 

ZAIRE 

LAND 

167 

URUGUAY 

STADT 

KINSHASA 

STADT 


MONTEVIDEO 

LAND 173 

SAMBIA 

LAND 

168 

VENEZUELA 

STADT 

LUSAKA 

STADT 


CARACAS 

LAND 174 

RHODESIEN 

LAND 

169 

VIETNAM 

STADT 

SALISBURY 


Alphanumeric Invaders 



Beschreibung des Programmes (4500 
Bytes) 

Wo sich die Zeichen auf dem Keybord 
befinden, erlernt man am schnell¬ 
sten durch tägliches Spielen und 
intensives Eintippen. Wer täglich 
zehn bis zwanzig Minuten mit diesem 
Programm arbeitet, vermag seine 
Eingabegeschwindigkeit in einer 
Woche um etwa zwei bis drei An¬ 
schläge pro Minute zu erhöhen. 

SO GEHEN SIE VOR: 

1. Woche: Mit einem Finger - bei 
eingeschalteter Anzeige und niedri¬ 
gem Schwierigkeitsgrad - täglich 20 
bis 30 Minuten die vom Computer 
vorgegebenen Tasten drücken. 

2. Woche: Mit zwei bis drei Fingern 
beider Hände - bei eingeschalteter 
Anzeige und erhöhtem Schwierig¬ 
keitsgrad - täglich 20 Minuten die 
vom Computer verlangten Tasten 
drücken. 

3. Woche: Mit 6 Fingern (drei pro 


Hand), dem kleinen Finger auf 
SHIFT, fast alle 56 Zeichen in 
einer Zeit von etwa fünf bis zehn 
Minuten - bei teilweise abgeschal¬ 
teter Anzeige - täglich 15 Minuten 
die vom Computer vorgegebenen Tas¬ 
ten drücken. 

4. Woche: Mit allen Fingern - bei 
abgeschalteter Anzeige - alle 56 
Zeichen in einer Zeit von 9 bis 12 
Minuten - täglich 10 bis 20 Minu¬ 
ten, die vom Computer vorgegeben 
Tasten, eintippen. 

5. Woche: Wie vierte Woche verge¬ 
hen, die Tasten jedoch mit einem 
Tuch verdecken. 

6. Woche: Wie fünfte Woche verge¬ 
hen, lediglich die Zeile 0012 LET 
A$="” hinzufügen. 

Wenn Sie diese Übungen absolviert 
haben, müßte Ihre Eingabegeschwin¬ 
digkeit doppelt so hoch sein: Von 
bisher 50 auf etwa 80 Zeichen pro 
Minute. Jens Gallenbacher 


1 REM MINDESTENS 27 BELIEBIGE UON J.GhLLENBRCHER 

ZEICHEN _ 

EUER CHIP-SPECIRL 

2 REM RLPHR-INURDERS 

- g R(63,2:i 


Eine Publikation von CHIP 


15 










Lernspiel 


10 LET fl$= 


m IE miK! IE liB m lE] iiEi 1 


lysa «lEB im IH3 im mi im ih i 
lE IE IE IE m m IE IE IE i E i 


lE lE lE lE lE lElS IBI IBH lE 
IE lE IE lE IE IE IE lE lE lE 

-ü| 

aajl IE lE IE IE II» IE IE IHI IE l.^ 

Mmi JE lE lE lE lE lE lE lE lü 


13 LET SCORE=0 

14 LET SHIP=S 

15 Dir-1 2(63) 

20 LET 1100000000000000000 

0051105111105051111050S081111111 
111020202020205020202020311110S0 
50S030S05030S0611110505050506050 
51105110511" 

30 LET C$="2600000000000000000 
026262004-10232622192724.211613072 
52528010407101316192225031610090 
61215162321242722192629021106142 
01305071704" 

40 FÜR N=1 TO 63 

50 LET H ( N 1) =UhL B $ ( N ^2 - 1 TG 
N + 2) 

60 LET H ( N , 2 :» =URL C $ i N ^2-1 TO 
N *2) 

70 NEXT N 

60 LET B4 = "GTFUBHYRDCNJIJESXMKI 
UhZ.LÜPQ1234567690, < > +-* = / ( ) $"+C 
HR$ 11+":;7hOUI" 

3.3 CLS 

85 GüSUB 4000 

90 PRINT "ZEITSCHUIERIGKEIT'? 10 
-25 > " 

100 INPÜT TIME 
110 LET TIME=hlES INT TIME 
120 IF TIME>25 THEN GOTO 90 
130 PRINT "BUCH:5TfiBENSCHUlIERIGK 
EIT'? ( l-56:i " 

140 INPÜT LETTER 

150 LET LETTER =PlB:6 INT LETTER 
160 IF LETTER>56 THEN GOTO 130 
165 IF LETTER=:0 THEN LET LETTER 
= 1 

173 PRINT "hNZEIGE'? il=ÜH} " 

176 INPUT RN2EIGE 
180 CLS 

185 LET C$=B$( TO LETTER) 

190 PRINT RT 0,0;R$ 

220 PRINT RT 16,17; TRB 17;" 


.";TRB 17;".’’;RT 19,17 ; ; TRB 1 

6 ; V" 

230 LET 0$="" 

240 FOR N = 1 TO 40+(3-3^LEN C$) 

250 LET D$=D$+C$((INT (RND^LEN 

c$:i ) + i:» 

260 NEXT N 
270 LET D$=" 


260 PRINT RT 21,0;" LEÜEL:";TI 
ME;RT 21,11;"/ ";INT LETTER;RT 2 
0,17;5HIP 

290 LET L=U'5R 16514 
300 FOR N=LEN D$ TO 29 STEP -1 
310 PRINT RT 14,2; D$ (N-26 TO N) 
315 LET X$=D$(N-13} 

320 IF X$=:" " OR X$ = "" THEN GOT 

O 400 

330 IF RNZEIGE=1 THEN PRINT RT 
RiCODE X$,l),R(CODE X$,2j,"il" 

:340 FOR F=0 TO 26-TIME 

350 IF INKEY$="" THEN NEXT F 

360 LET I$=INKEY$ 

370 IF I$=X$ THEN LET D$!:N-13:t = 

375 IF I$=X$ THEN LET SCORE=500 
RE + INT (50+ (RNZEIGE=0) +TIME/10+L 
ETTER..-2) 

360 IF X$<:>I$ THEN LET Z (CODE X 
$> =Z (CODE X$:i +1 

390 PRINT RT R (CODE X $, 1) ,R (COD 


£ X$, 

'2) 

.11 <1 


395 

G 0: 

5UB 1000 


400 

IF 

D$ (n :i =" 

" THEN NEXT N 

405 

IF 

D$ (Nü =" 

" THEN GOTO 610 

410 

T N 

IF 

Z (CODE 

D$ (N) :» <5 THEN NEX 

414 

O 610 

IF 

Z »CODE 

D$ (N) ) <5* THEN GOT 


420 

FOR F=14 

TO 20 



430 

PRINT RT 

F , 29; D$ (N.) 



440 

NEXT F 




450 

FOR F=29 

TO 16 STEP 

-1 


460 

PRINT RT 

20 . F, D$ (N.'» 



470 

NEXT F 




475 

FÜR F = 1 T»G 5 



460 

PRINT RT 

19,16,"* 

■ ; TRB 

16 






490 

PRINT RT 

19,16," 

‘; TRB 

16 

500 

NEXT F 




510 

PRINT RT 

20.19 ; "!■■■ 



!*• 

5'20 

FOR F=20 

TO 14 -STEP 

-1 


530 

PRINT RT 

F,29; 
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54-0 NEXT F 

550 LET 2 (CODE D$(Nj;i=l 
560 LET SHIP^5HIP-1 
565 IF :5HIP<0 THEN GOTO 3000 
570 LET TIME=TIME-1 
575 LET SCORE.-SCORE-INT (SCORE/ 
3) 

SSO LET LETTER=LETTER-.5 
5SS IF TIME<0 THEN LET TIME=3 
590 IF LETTER<=0 THEN LET LETTE 
R = 1 

595 PRINT RT 19 16"■ni’'; TRB 16 
, CHR$ (CODE (STR$ SHIPj+12S) 


3100 PRINT "ES GEHT OON UORNE LO 
S . " 

34-00 RUN 
1000 PRINT 

■i-RNLEITUNG : * 

*DIES IST EIN SPIEL, DRS DRS + 
+ LERNEN UON DEN BUCHSTREEN RUF 
* IHRER TRSTRTUR ERLEICHTERN ^ 

*SOLL, UND SIE DRMIT RUCH ZUM ^ 
^SCHNELLEREN EINGEBEN UON ORTEN# 
#ODER PROGRRMMEN IN DEN COMPU- # 
#TER BEFREHIGT. # 


600 NEXT N 
610 CLS 

620 PRINT "MIT DIESER RUNDE SIN 
D SIE FERTIG" 

630 LET SCORE =3CORE-*-100 
610 IF SCORE<0 THEN GOTO 720 
650 PRINT "SIE UERDEN UM 1 ZEIT 
EINHEIT UND 1 BÜCHSTRBENEINHEIT 
BEFÖERDERT." 

660 LET TIME=TIME+1 
670 IF TIME>12 THEN LET LETTER= 
LETTER+1 

630 IF TIME>12 THEN LET TIME-5 
690 LET LETTER=LETTER+1 
700 IF LETTER>56 RND TIME>11 TH 
EN GOTO 2000 

705 IF LETTER>56 THEN LET LETTE 
R--56 

707 FÜR N=:l TO 100 
70S NEXT N 
710 GOTO ISO 

720 PRINT "SIE UERDEN UM 1 ZEIT 
-UND 1 BUCH-STRBENEINHEIT HERRBG 
E-STUFT" 

730 LET TIME=:TIME-1 
710 IF TIM£<0 THEN LET LETTER-L 
ETTER-1 

750 IF TIME ::0 THEN LET TIME--IO 
760 LET LETTER=LETTER-1 
770 IF LETTER'^! THEN LET LETTER 
= 1 

7S0 LET SCORE=5C0RE-200 
7 9 0 G OT O 707 

1000 PRINT RT 17,2, ; RT i 

9,1; ("fij" RND SCORE > =0) + ("RND 
SCORE <0) ; RT 19,2; RBS SCORE ; "IMI" 
1010 RETURN 
2000 CLS 

2010 PRINT "GUTE RRBEIT.".."ZUR 
BELOHNUNG DUERFEN SIE EINE RUN 
DE XXX ","SPIELEN" 

2020 GOTO 6^000 

3000 PRINT "UERSRGER." 


1010 PRINT 

#3 IE BESITZEN EINE LRSERKRNONE # 
#UND UNENDLICH UIEL MUNITION- # 
#ZIEL DES SPIELS IST ES. MOEG- # 
GLICHST UIELE ZEICHEN. DIE RN # 
#IHNEN UORBEILRüFEN RBZU- # 
#SCHIESSEN. INDEM SIE DIE TRS- # 
#TE, RUF DER DRS ZEICHEN STEHT # 
#DRUECKEN. 3»!^ MUSS ZU SHIFT-# 
^ZEICHEN GEDRUECKT UERDEN- # 
# # 
»BITTE DRUECKEr-4 SIE EINE ThSTE » 


4-020 IF INKE'-, 

iT] 


*" THEN GOTO 

102 

1030 IF INK.E'-, 

1010 CLS 

1050 PRINT 

■■'4 = '* ' 

' THEN GOTO 

1030 

#UENN SIE ES 

UUEMSCHEH ER- 

J£. 


»SCHEINT RN DER BETREFFENDEN » 
»TASTE IN DER OBEREN HAELFTE » 
»DES BILDSCHIRMS EIN GRAUES » 
»FELD, SO DASS SIE EINE OR- » 
»TISCHE KONTROLLE HABEN, » 
»WEITERHIN KOENNEN SIE UEBRI- » 
»GENS NOCH DIE SPlELGESCHUIN- » 
»DICKE IT UND DIE ANZAHL DER AB-» 
»Z UT E ST ENDEN BUCH ST' AB EN E IN - » 

4-060 PRINT 

»WENN SIE EIN BESTIMMTES Z.EI- » 
»CHEN MEHRERE MALE NICHT TREF- » 
»FEN FUEHRT DRS DAZU, DASS IHR » 
»EIGENES RAUMSCHIFF ZERSTOBHRT » 
»UIRD, ALLERDINGS HABEN SIE DA-» 
»UON 8 IM RESERUE, AM ENDE JE- » 
»DER SPIELRÜNDE UERDEN SIE ENT-» 
»WEDER BEFÖERDERT, ODER DEGRA- » 
»DIERT, WIR WERDEN JA SEHEN,.. » 
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Lernspiel 


4070 POKE 16418,0 

4080 PRINT PT 22.0: ''ZUM SPIELEN 

BITTE TR3TE 

DPUECKEN 


4035 

POKE 16413,2 


4090 

IF 

INKEY^ < >- 


THEN GOTO 409 

0 

4100 

IF 

INKEY$=-- 


THEN GOTO 4100 

4110 

CL5 




4120 

RETURN 



4500 

PRINT 



m 

1 

1 i 


S 1 

R 

R K 1 i 

1 

1 S»R 9^ 

luHlI 

i 


IwJ i b“ 

1 1 

S 

e 1 i 

1 

S "».J 

R 1 

1 

i i i 

1 

R 

J « 


J J gJi 

R “ 


1 

tm 

11 1 


TT*"■ 


■ 

i 

II 

1 8 1 

H 

1 

1 1 

1 fi i 

1 

R 

1 

IRR 1 

kiiaJ 

1 i 

1». i».“ 

■ 

R 

H 

■ 8 8 

1 i 

1 8 

1 1". 


i 

1 

1 1 1 

1 

1 

i i 

1 1 i 

1 

J 

J 

1 ■ 

J 1 

IUb” 

Immmd 1 



4510 PRINT 
4520 PRINT 




4-530 PRINT *' --BITTE EINEN MÜMEN 
T UhRTEN- 

4-535 LET L=U5R 15514- 
4-54-0 SflUE '’PH'' 

4550 RUN 
5000 REM 


5001 5CROLL 

5002 PRINT "RDRESSE: BYTES: 

5003 5CR0LL 

5004 PRINT "- - 

5005 5CROLL 

5006 PRINT 

5007 SCROLL 

5003 FÜR 2=16514 TO 16540 

5009 PRINT Z.; 

5010 INPUT BYTE 

5011 P O KE Z,BYTE 

5012 PRINT TRB 13.;PEEK Z 


5013 SCROLL 

5014 NEXT Z 

5015 SCROLL 

5016 SCROLL 

5017 PRINT -DIE HC-£INLESE-ROUTI 
NE KRNN NUN- 

5013 SCROLL 

5019 PRINT -GELOESCHT UERDEM „ 

5020 SCROLL 

5021 SCROLL 

5022 PRINT "UÜR DEM ERSTEN 5TRRT 
SOLLTE DRS- 

5023 SCROLL 

5024 PRINT ’PRÜGRRMM JEDOCH RBGE 
SPEICHERT- 

5025 SCROLL 

5026 PRINT -WERDEN»- 


ADRESSE BYTES 


16514 

42 

12 

64 

35 

237 

16519 

91 

16 

64 

167 

237 

16524 

82 

25 

208 

70 

120 

16529 

7 

7 

56 

240 

15 

16534 

15 

238 

128 

119 

24 

16539 

233 

201 

201 

201 

201 
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Lernspiel 


Vekabel-ntiiner 


Beschreibung des Programmes 
( 8660 Bytes) 

Sicher haben Sie es an sich auch 
schon beobachtet; wenn Sie etwas 
nicht interessiert, nehmen Sie es 
auch nur ungern in sich auf. So 
geht es wohl den meisten Computer- 
Fans mit Fremdsprachen. Warum also 
nicht beides - Hobby und Fremdspra¬ 
che - miteinander verbinden? 

Dieses Programm unterteilt die Vo¬ 
kabeln in 62 Lektionen. Jede Lek¬ 
tion kann man nochmals in zwei 
Teilabschnitte aufteilen. Man kann 
dann vom Computer maximal 254 Voka¬ 
beln "-in einem Rutsch" auf drei 
verschiedene Arten abfragen lassen: 
Erstens aus Teil A einer Lektion, 
zweitens aus Teil B oder drittens 
aus beiden Teilabschnitten zu¬ 
gleich. Diese Teilabschnitte kann 
man auch noch weiter abgrenzen. Im 
Programm sind zwei Beispiele ent¬ 
halten: Lektion 50 a und 50 b. 

Eine Vokabel wird folgendermaßen 
gespeichert: zuerst kommt die Voka¬ 
bel selbst. Dann kommt ihre Bedeu¬ 
tung. Sie können auch mehrere Be¬ 
deutungen eingeben, höchstens 15. 
Die Bedeutungen sind durch Kommata 
untereinander zu trennen. Jede Be¬ 
deutung darf maximal 64 Zeilen 
umfassen. Wenn Sie trotzdem mehr 
Bedeutungen wie Platz eingeben wol¬ 
len, müssen Sie sich in der Länge 
Ihrer Bedeutungen auf 32 Zeichen 
beschränken und folgende Zeilen 
ändern: Zeile 1430: Hier dürfen nur 
32 Leerzeichen stehen und die Zahl 
64 in Zeile 1435 wird auf 32 redu¬ 
ziert. Zeile 1440: DIM B $ (15,32). 
Nach der Bedeutung können Sie noch 
eine nähere Bestimmung (wenn Sie es 
wünschen) nach Ihrer Wahl eingeben. 
Wenn Sie dann schließlich abgefragt 
werden, wählt der Computer die 
Vokabeln nach dem Zufallsprinzip 
aus. Wenn Sie eine der gültigen 
Bedeutungen und - wenn vorhanden - 
die nähere Bestimmung richtig ein¬ 
gegeben haben, wird Ihnen diese 
Vokabel nicht noch einmal vorge¬ 
führt .Nachdem Sie alle Lösungen 
gefunden haben, erfolgt eine kriti¬ 
sche Bewertung. 


HILFSPROGRAMM; 

Um die Vokabeln abzuspeichern, 
bleiben Ihnen zwei Möglichkeiten: 
entweder Sie schreiben direkt in 
die REM-Zeile (achten Sie dafür auf 
die Beispiele), oder Sie bedienen 
sich des Hilfsprogramroes. Dann 
brauchen Sie nur, nachdem Sie einen 
Teil einer Lektion eingegeben ha¬ 
ben, eine REM-Zeile mit einigen 
Leerzeichen ins Programm einzufü¬ 
gen. Welche Zeilennummer und wie¬ 
viele Zeichen Sie eingeben müssen, 
wird Ihnen mitgeteilt. Sie brauchen 
auch nicht darauf achten, daß Sie 
sich ja nicht verzählen. Das Pro¬ 
gramm teilt Ihnen die Fehler 
mit.Der Computer läßt die Wahl, mit 
CONT oder einem GOTO-Befehl wieder 
zu starten. Wenn Sie während der 
Unterbrechung einen Befehl eingege¬ 
ben haben (z.B. LIST), müssen Sie 
die GOTO-Anweisung nehmen. Mit dem 
Hilfsprogramm können Sie Vokabeln 
eingeben, ergänzen, löschen oder 
korrigieren. 

MERKE; 

Denken Sie bitte daran, nach dem 
ersten Durchlauf die Zeilen 2 bis 
10 zu löschen und Zeile "9 FAST" 
einzufügen. Es wird Ihnen daraufhin 
eine kurze Anleitung präsentiert. 
Dann haben Sie die Möglichkeit, ins 
Hilfsprogramm zu springen. Wenn 
dies nicht vorhanden ist, geht der 
Computer wieder zur Anleitung zu¬ 
rück. Wenn Sie sich zum Üben der 
Vokabeln entschlossen haben, müssen 
Sie den entsprechenden Abschnitt 
und Teilabschnitte (s.o.) eingeben. 
Sollten Sie diesen Bereich noch 
weiter einschränken wollen, also 
z.B. nur von der 7. bis zur 11. 
Vokabel abgefragt werden wollen, 
müssen Sie die nächste Frage mit 
"J" beantworten. Wenn Sie Wörter 
völlig neu erlernen wollen, geben 
Sie - anstatt eine Bedeutung - 
einfach "NEWLINE" ein. Am Ende 
dieses Programmes wartet ein Spiel 
auf Sie. 

Beim Hilfsprogramm geben Sie am 
Anfang den Abschnitt und den Teil¬ 
abschnitt ein, egal was Sie damit 
machen wollen. Danach stehen Ihnen 
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Lernspiel 


folgende Möglichkeiten zur Wahl; 1. 
Einen Abschnitt neu programmieren. 
2. Einem Abschnitt Vokabeln hinzu¬ 
zufügen. 3. Vokabeln innerhalb 
eines Abschnittes löschen. In die¬ 
sem Fall geben Sie zuerst die Voka¬ 
bel, die Sie löschen wollen, ein 
(wenn der Computer danach fragt) 
und wenn Sie dann die Bedeutung und 
nähere Bestimmung definieren müs¬ 
sen, drücken Sie einfach auf NEW- 
LINE. 4. Vokabeln ändern. Hierbei 


müssen Sie die Stellung der Zei¬ 
chen, also zuerst "/" , dann 
usw. so belassen, wie sie sind. 
Ändern Sie nur die eigentlichen 
Vokabeldaten. 

Um die Vokabeln abzuspeichern, muß 
das Programm an beliebiger Stelle 
unterbrochen werden und dann SAVE 
"VOKABEL” und NEWLINE eingegeben 
werden. Viel Spaß beim Lernspiel! 

Jens Weber 


1 REM HIER MUESSEM 304- BELIEB 
IGE ZEICHEN STEHEN. 

S REM UOKRBEL-TRAINER 

iJON JENS LIEBER 

EUER CHIR-SPEC IRL 


3 LET R$ = '‘21S540EB£1S44.04.E060 
009234-4.4D218 34.07EEBRECRR84123EB7 
RR8C£95417BR9C29541'‘ 

4 LET R$=fl$+"C9010000C9" 

5 FÜR R=1 TO LEN RS-1 STEP 2 

6 PÜKE R /2 + 16771 . S ( CODE R $ ( R 
3 -28 3 *16+C0DE R$ (R + 13 -28 

7 NEXT R 

8 POKE 16514,118 

9 STOP 

10 REM ZEILE 2 BIS 10 LOESCHEN 
. ZEILE 9 IN SSBH RENDERN 


500 REM 002/FflCERE:MACHEN,TUN;F 
flCIO,FECI,FRCTUM/UOX:STIMME; 

505 REM 002/CONCERNED RBOUT:BES 
O R GT U M ; / U R L R U B : L E R U E ; 

700 CLS 
705 FAST 

710 PRINT TRB 12; "UOH.RBELN" 

720 PRINT ,,"DIE UOKRBELN SIND 
IN MRX. 124 ABSCHNITTE GETEILT 

.DER ERSTE HEISST IR,DER LETZ 


TE 62B. 


730 PRINT 
NICHT ALLE 
SEIN,UND 
INTEREIN- 


•• NRTUERL ICH BRAUCHEN 
ABSCHNITTE BELEGT ZU 
MUESSEN RUCH NICHT H 
ANDER FOLGEN.Z.B. KR 


NN RUF 

740 PRINT ABSCHNITT 12B 45R FO 
LGEN.UENN SIE RLS ABSCHNITT NU 
R EINE ZRHL EINGEBEN,UUERDEN SIE 
AUS BEIDEN TEILABSCHNITTEN R UN 
D B (UENN UORHRNDENi BEFRAGT." 
750 PRINT "ZUERST WIRD DIE BEDE 


UTUNG RBGE- FRAGT,DANN,UENN SIE 
UOLLEN,EINE NREHERE BESTIMMUNG.U 
R S S IE R NT U 0 RT E N M U E S S E N , K O 

ENNEN SIE NRTUERLICH SELBST BE 

STIMMEN." 

760 PRINT RT 20,0;"KONZENTRlERE 
N SIE SICH UND DRUECKEN SIE 

DANN EINE TASTE..." 


765 PAUSE 4E4 

766 POKE 16437,255 

770 IF INKEYS="" THEN GOTO 770 
780 CLS 

790 PRINT "UOLLEN SIE..." 

800 PRINT ,,"1. iJOKREELN UEBE 


N" 

810 PRINT ,."2. UOKRBELN EINS 
CREIBEN, LOESCHEN,KORRIGIER 

EN ODER ERGRENZEN" 

815 PAUSE 4E4 
817 POKE 16437,255 

820 IF INKEY$="2" THEN GOTO 600 


0 

830 IF INKEYS<>"1" THEN GOTO 81 


999 REM RB HIER UIRD DER RBSCHN 
ITT EINGEGEBEN 
1000 CLS 
1010 LET Z=0 
1020 LET R=0 
1030 LET C=16509 
1040 POKE 16516,1 
1050 RAND 0 
1060 LET K=0 
1070 LET G=1 
1080 LET H=0 

1100 PRINT "UELCHER ABSCHNITT,EU 
. TEIL •?" 

1105 SLOU 
1110 INPUT Z$ 

1115 IF Z$="" THEN GOTO 1110 
1120 IF Z*="-" THEN GOTO 700 
1122 IF LEN Z$=l THEN LET Z$="0" 
+ Z$ 

1130 IF LEN Z$=2 THEN IF CODE Z$ 
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i;len z$:i >37 then let z$=:‘'0”+2$ 
1155 LET Z$=Z$ + ‘' *• 

1140 IF UftL Z$i TO 2:1 >62 THEN GO 
TO 1100 

1142 GOSUB 5100 

1145 ERST 

1146 REM DIE ENTSPRECHENDE REM-Z 
EILE DES RBSCHNITTES UIRD GESUCH 
T 

1150 LET^ 6=:URL Z$i: TO 2:i*10+(5 R 
ND Z$ (3) 

1153 LET F=:PEEK (C + 1 j +256*PEEK C 

1155 IF Z$(3)='‘ “ THEN IF F=B+5 

THEN LET B=B+5 

1160 IF F=B THEN GOTO 1190 

1165 IF F>B THEN GOTO 5000 

1170 LET C=C+4+PEEK (0+2) +256-^^PE 

EK (C+3) 

1180 GOTO 1153 

1185 REM NUN UIRD FESTGESTELLT,U 
lEUIELE UOKRBELN IN DIESER REMZE 
ILE SIND. (FÜER DEN ZUFRLLSGENERR 
TOR) 

1190 LET C=C+3 

1200 LET R=URL (CHR$ (PEEK (0-3) 

) j *100 +UhL (CHR$ (PEEK (0-2) ) ) *1 
0+'JRL (CHR$ (PEEK (C-l) ) ) 

1210 LET Y=(PEEK (C-6) +256*PEEK 
(C-5))+C 

1220 IF (256+PEEK (Y-4)+PEEK (Y- 

3;i-5t<=B RND 2$(3j=” “ THEN LET 

R=R+UhL (CHR$ (PEEK (Y+l)))*100+ 
URL (CHR$ (PEEK (¥'+2) ) ) *10+URL ( 

CHR$ (PEEK (Y+3))) 

1225 IF R>254 THEN GOTO 1000 
1227 IF R<H OR H=0 THEN LET H=R 
1230 LET Y=C 
1233 FRST 

1235 REM DER ZUFRLLSGENERRTOR UR 
EHLT EINE ZRHL 

1240 POKE 16515,INT (RND* (H-G) +. 
5+G) 

1247 REM URR DIESE ZRHL SCHON MR 
L DR 7 

1250 LET XY=USR 16772 
1255 IF XY=0 THEN GOTO 1240 
1260 LET X=PEEK 16515 
1280 LET B=0 

1285 REM DIE UOKRBEL ZUR ZRHL UI 
RD GESUCHT 

1290 IF PEEK C=24 THEN LET B=B+1 
1300 IF B=X THEN GOTO 1330 
1310 LET C=C+1 
1320 GOTO 1290 

1325 REM DIE UOKRBEL UIRD IN R$ 

RBGESPEICHERT 

1330 LET R$ = *‘*' 


1340 

LET C=C+1 


1350 

IF PEEK C=24 OR PEEK C= 

128 

THEN 

GOTO 1390 


1360 

LET R$=R$+CHR$ (PEEK C) 


1370 

R$ 

IF PEEK C=14 THEN LET Z 

= LEN 

1380 

GOTO 1340 


1390 

G 0 S U B 9 99 0 


1395 

PRINT ,,R$( TO Z-1) ; 7 

*' 

1396 

PRINT RT 6,10;“R‘' 


1400 

LET C=:Y 


1410 

LET 0=1 


1415 

LET K=K+1 


1416 

REM RB HIER UIRD UNTERS 

UCHT 


,0B SIE RICHTIG GERNTUORTET HRBE 
N UND OB SIE DIE UOKRBEL NREHER 
BESTIMMEN MUESSEN 
1418 SLOU 
1420 INPUT C$ 

1430 LET C$=C$ + ’' 

’• ( TO 64-LEN C$) 
1440 DIM B$ (15,64) 

1450 FOR B=Z+1 TO LEN R$ 

1460 IF R$(B)=*‘.;‘' OR R$(B)=”,‘' T 

HEN GOTO 1490 

1470 LET B$ (D,B-Z) =R$ (B) 

1480 NEXT B 

1490 IF R$r:B:r=:’',’' THEN GOTO 1520 

1500 LET D=D+1 

1505 LET Z=B 

1510 GOTO 1480 

1520 LET E=B 

1530 FOR B=1 TO D 

1540 IF B$(B)=C$ THEN GOTO 1610 
1550 NEXT B 

1560 PRINT , , "FRLSCH-DIE LOESUNG 

1570 FOR Z=1 Tu D 
1580 PRINT B$(Z) 

1590 NEXT Z 

1600 IF R$(E + 1 TO )='*•• THEN GOTO 
9000 

1605 GOTO 1710 

1610 PRINT ■•RICHTIG .”+( "UEITERE 
LOESUNGEN:“ RND D>1) 

1620 FOR Z=1 TO D 

1630 IF Z<>E THEN PRINT B$(Z:i 

1640 NEXT Z 

1700 IF R$(E + 1 TO )='•“ THEN GOTO 
1770 

1710 PRINT ,,“...UND UEITER 7” 
1720 INPUT D$ 

1730 IF D$=:R$(E + 1 TO ) THEN GOTO 
1760 

1740 PRINT "FRLSCH.DIE LOESUNG : 

“; R$ (E + 1 TO ) 
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1750 GOTO 9000 
1760 PRINT RT 17.24, 

1770 IF TMEN G05UB 1790 

1775 IF PEEK 16516-2=H-G THEN GO 
TO 2000 
17S0 GOTO 9000 

1790 POKE 16516.PEEK 16516+1 
1793 POKE tPEEK 16516 + 16516) PEE 
K 16515 

1795 PRINT hT 19 .. 90; “ weiter 50.. 

1796 RETURN 
9000 CL5 

9005 LET Fl=M-G + l 

9010 P R I NT “ + * + + + + + + + + + + + 

+ + + + + + + + + + * + •' 

9090 FOR B=1 TO 90 

9030 PRINT *‘+”;TRB 31;“'*” 

9040 NEXT B 

9050 PRINT ++++*++ 

++++++++++*+” 

9055 PRINT PT 9,3.;'* --> BEUE 

RTUNG 

2060 PRINT RT 5,3.:’* NR RLSO .. NUN B 
IST DU DURCH.” 

9070 PRINT RT 7,3.: "DU HRST " INT 
(R/K+10000)/100 

2060 PRINT RT 9.3"PROZENT RICHT 
IG GERRTEN." 

2090 LET h$="SEHR MRESSIG." 

2100 IF R/K>.3 THEN LET R$="3CHg 
RNM DRUEBER." 

2110 IF R/K:>.5 THEN LET R$ = ’*DURC 
HSCHNITT." 

9190 IF R/K:>.3 THEN LET R$=:''hNNE 
HMBRR." 

9130 IF R/K = l THEN LET R$ = '*PHhEN 
OMENRL." 

914-0 PR INT RT 15,3 .; R $ 

9145 PRINT RT 19.. 3.: "EIN SPIEL (J 
/N) '?'• * 

9150 IF INKEY$="0" THEN GOTO 220 
0 

9160 IF INKEY$<:>"N" THEN GOTO 21 
50 

2170 GOTO 700 
9200 CLS 

2910 PRINT RT 10,0;"DU STEUERST 
MIT ■*“1-'" =LINK5 UND 
HT5 . " 

9920 PRINT RT 9 1 .. O , " DRUECKE NEUL 
INE" 

9230 IF INKEY$="" THEN GOTO 2930 
2950 LET H=0 
2260 LET 5=0 
2970 CLS 

2272 LET H$ = "|^1ÜB" 


2274 IF 5>900 THEN LET R$ = "*»ai 

9260 LET X=14 
2990 LET R=12 
3000 FOR N=0 TO 20 
3010 PRINT TRB R.:R$ 

3020 LET R=R + l-i:9 RND RND>.55:i 
3030 LET R=R-(1 RND R>31)+(1 RND 
R <0) 

3040 NE?XT N 
3050 LET R=X 
3060 FOR N=1 TO 20 
3070 PRINT RT N,X; 

3060 IF PEEK (PEEK 16396+256+PEE 
K 16399)=126 THEN GOTO 3150 
3090 PRINT RT N -1 R; "1" ; RT N,X:" 
Sl" 

3100 LET R=X 

3110 LET X=X+ (INKEY$ = "0") - (INKEY 
$=" 1 ") 

3120 NEXT N 
31:30 CL:5 
3140 LET S=S+N 
3145 GOTO 2270 
3150 CLS 
3160 LET 5=3+N 

ORE = ".:S 

3160 IF H<S THEN LET H=S 
3190 PRINT "HIGH SCORE = ".:H 
3200 PRINT RT 20,0;"NOCH EIN SPI 
EL •?" 

3210 IF INKEY$="N" THEN GOTO 700 
3220 IF INKEY$<>"U" THEN GOTO 32 
10 

4030 GOTO 2250 
5000 CLS 

5005 PRINT "NICHT GEFUNDEN." 

5010 GOTO 1010 
5100 CLS 

5105 PRINT ,,"IST DIESER BEREICH 
NOCH WEITER EINGESCHRRENGT (ü/ 
N) ?" 

5110 IF INKEY$="N" THEN RETURN 
5120 IF INKEY$<>"U" THEN GOTO 51 
10 

5130 PRINT "RB WELCHER UOKRBEL 7 
5140 INPUT G 

5150 PRINT "BIS ZUR WIEUIELTEN ? 
5160 INPUT H 

5170 IF H<G OR G<0 THEN GOTO 510 
0 

5160 CLS 
5190 RETURN 

6000 REM EINGRBE/KORREKTURHILFE 
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6005 CLS 

6010 PRINT ‘•ABSCHNITT UND TEIL ? 
6020 INPUT 

6030 IF Z$=““ THEN GÜTQ 6950 
6040 LET Z=URL Z$C TO LEN Z$-l)* 
10+(5 RND z$i:len Z$:i=“B“) 

6045 LET B=Z 

6050 PRINT . .“UOLLEN SIE. . 

6060 PRINT "1. UÜKRBELN RENDER 
N/LOESCHEN“ 

6070 PRINT ”2. UOKRBELN NEU EI 
NGEBEN ODER HINZUFUEGEN“ 

6080 INPUT R 

6090 IF R=2 THEN GOTO 6900 
6100 LET X=16509 

6105 IF 256*PEEK X+PEEK (X+1)=Z 
THEN GOTO 6120 

6110 LET X=:X+4+PEEK (X + 2) +256+PE 
EK (X+S) 

6115 GOTO 6105 
6120 LET R$ = '“‘ 

6130 LET X=X+5 
6140 LET Z=:X 

6150 IF PEEK X=:11S THEN GOTO 619 
0 

6160 LET R$=R$+CHR$ PEEK X 


6170 

LET X=X+1 


6180 

GOTO 6150 


6195 

IF R=1 THEN GOTO 

6600 

6200 

IF R$="" THEN LET 

R$="0000" 

6210 

LET R$=R4( TO LEN 

R $ - 1) 

6220 

LET C=0 


6225 

CLS 


6230 

PRINT "UOKRBEL 7" 


6235 

LET C=C+1 


6240 

INPUT B$ 


6250 

PRINT "BEDEUTUNG(EN) 7" 

6260 

INPUT C$ 


6270 

PRINT "NREHERE BE 

STIMMUNG 7 

(NIC 

:HT , N/L) " 


6280 

INPUT Z$ 


6290 

LET R$=R$( TO LEN 

R4) +" /■" +B 


*+ “ : *' +C$ + “ , “ +Z$ 

6300 PRINT "ENDE (1) ?" 

6310 INPUT R 

6320 IF R = 1 THEN LET R$=R$ + "H'' 
6330 IF R=1 THEN GOTO 6350 
6340 GOTO 6225 

6350 LET Y=PEEK (Z-S)+256+PEEK ( 

Z-2:f -2 

6360 IF Y<>LEN R$ THEN GOTO 6490 
6400 FOR R=Z+3 TO Y+Z-1 
6410 POKE R., CODE R$(R'-Z + 1) 

6420 NEXT R 
6434 LET R=0 

6438 LET R=URL (R$ü1))+100+URL ( 


R$ (2) :i +10+URL (R$ (3:i :i 

6440 LET R=R+C 

6445 LET R$ ^ TO 3) ="000" ( TO 3-L 
EN STR$ r:i +STR$ R 
6450 POKE Z,CODE R$(1ü 
6460 POKE Z+l,CODE R$C2) 

6470 POKE Z+2.C0DE R$(3:f 
648 0 G OT O 6000 

6490 PRINT "ERGRENZEN SIE DIE RE 
MZEILE ";B;" UM ",LEN R$-Y;" ZEI 
CHEN." 

6495 PRINT "EGRL.. UO SIE DIE ZEIG 
HEN SETZEN, NUR NRCH REM MUESSEN 
SIE SEIN." 

6500 PRINT "STARTEN SIE MIT CONT 
ODER G OT O 6350" 

6510 FAST 
6520 STOP 
6530 GOTO 6350 
6600 CLS 

6610 PRINT "UELCHE UOKRBEL ?" 
6615 LET X=1 
6620 INPUT B$ 

6630 IF CODE R$(X;i=:CODE B $ ( 1Ü TH 
EN GOTO 6690 
6640 LET X=X+1 

6650 IF X>LEN R$ THEN GOTO 6670 
66 60 G OT O 6 6 30 

6670 PRINT ,,"NICHT GEFUNDEN." 
6680 GOTO 6610 

6690 FOR R=X + 1 TO LEN E4+X--1 
6700 IF CODE fl$iRj <>CODE B$(R-X+ 
i:r THEN GOTO 6640 
6710 NEXT R 

6720 FÜR R = X TO LEh-j R 4 

6730 IF R$(R;!="H" OR R4i;R)="/" t 

HEN GOTO 6750 

6740 NEXT R 

6750 PRINT ,,"SO HABE ICH SIE RB 
GESPEICHERT:" 

6755 LET X=X“1 

6760 PRINT R$(X TO R-l) 

6770 PRINT "GEBEN SIE NUN DIE NR 
CH IHREN UUENSCHEN GERENDERTE 

ZEICHEN- KETTE EIN." 

6780 INPUT Z4 

6790 LET R$=R4( TO X - 1 ) +Z $ +R $ H 
TO ü 

6795 LET C=0-i:i RND Z4 = "") 

6800 GOTO 6350 

6900 PRINT ,,"UOLLEN SIE EINEN N 
EUEN RBSCHNITTEINGEBEN 7 (J/Nj" 
6910 INPUT R$ 

6920 IF R$i:i:i="N" THEN GOTO 6100 
6930 PRINT GEBEN SIE NUN EINE 

REMZEILE MIT DER NUMMER " Z, " U 
ND KEINEM ZEICHEN EIN." 
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6935 PRINT "STARTEN SIE DANN MIT 
CONT ODER GOTO 6100" 

6940 STOP 
6945 GOTO 6100 
6950 GOTO 700 
9000 POKE 16415,0 

9010 PRINT RT 23,0, "C-RUECKE NEUL 
INE" 

9030 IF INKEY$="" THEN GOTO 9030 
9035 POKE 16415,2 


9040 GOTO 1230 

9990 CL5 

9992 PRINT "WM 



9994 PRINT RT 3,29jZ$( TO 3) 
9996 PRINT 
9999 RETURN 


MuHigraph 


Beschreibung des Programmes (7450 
Bytes, Druckeranschluß möglich) 

Mit der Note "sehr gut” schnitt 
dieses gut strukturierte, benutzer¬ 
freundliche Bildschirmgrafik-Pro- 
gramm ab. Nach dem Laden erscheint 
auf dem Bildschirm das Hauptmenue 
mit folgenden Möglichkeiten; 

0 Mit B (Bild) kann man sich die im 
Speicher vorhandenen zehn Grafiken 
zeigen lassen. Der Computer fragt: 
"Welches Bild möchten Sie sehen?" 
Nach Eingabe der gewünschten Nummer 
erscheint in Sekundenschnelle das 
Bild.Nach dem Betrachten geht es 
mit NL zurück ins Menue. 

0 Mit "V" (Variable) kann man die 
Variablenliste, d.h. die Daten der 
letzten Grafik noch einmal aufzei¬ 
gen, um sie ggf. auf dem Printer 
ausdrucken zu lassen. 

0 Mit A(ändern) kann man die Daten 
für die nächste Grafik modifizie¬ 
ren. Es erscheint zunächst das 
Daten-Veränderungsmenue, mit' 12 
Variablen und deren Bedeutung, so¬ 
wie den im Augenblick noch dazuge¬ 
hörigen Werten .Gleichzeitig werden 
Sie gefragt:"Welche Variablen 
möchten Sie ändern?" - "Geben Sie 
die entsprechende Nummer der Zeile 
ein!" Nach Eingabe der Nummer fragt 
Sie der Computer nach dem Wert den 
diese Variable erhalten soll. Wenn 
der Wert eingegeben ist, fragt er 
nach der nächsten Variablen - usw. 
Wenn alle 12 Werte Ihren Vorstel¬ 
lungen entsprechen, werden mit "M" 
die neuen Werte blitzschnell ge¬ 
speichert. Es geht zurück ins 
Hauptmenue. 


0 Wieder im Hauptmenue, können Sie 
nun mit "G"(Grafik) die neue Grafik 
zeichnen lassen. Aufgrund der kom¬ 
plizierten Formel, die dies bewerk¬ 
stelligt, geschieht das im FAST- 
Modus. Der Bildschirm wird für ein 
bis zwei Minuten dunkel ( so lange 
braucht der ZX81 zum Rechnen und 
Zeichnen). Doch dann erscheint die 
von Ihnen errechnete Grafik auf dem 
Bildschirm.Sie haben jetzt die 
Wahl: 

-Sofort zurück ins Menue mit NL, 
wenn die Grafik nicht gefällt. 

-Eine Kopie der Grafik auf dem 
Printer zu erzeugen, mit "z"" und 
zurück ins Menue. 

-Jetzt kommt der Clou: Sie können 
diese Grafik jetzt im Speicher 
ablegen, wenn Sie "M" (Memory) 
drücken. Es erscheint in Zeile 22 
(Zeile Nr. 22 und 23 können sonst 
nicht im Programm verwendet werden) 
der Hinweis; "Memory frei" und dann 
die Nummern der freien Bildschirm¬ 
speicher, die noch nicht von einer 
Grafik besetzt sind. Dies alles 
geschieht mit aufgebautem Bild¬ 
schirm bis Sie sich entschieden 
haben, in welchen Speicher Sie die 
Grafik ablegen wollen, mit der 
Bitte: "Nummer eingeben" in Zeile 
23. Wenn Sie eine Zahl zwischen 1 
und 9 gedrückt haben (die 10 müssen 
Sie hexadezimal mit A eingeben), 
fällt der Computer wieder in den 
FAST-Modus und der Bildschirm wird 
für 30 Sekunden dunkel. So lange 
braucht der ZX81 diesmal, um die 
704 Bytes im Speicher abzulegen. 
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Wenn er damit fertig ist, geht es 
zurück ins Hauptmenue. 

0 Mit "S" (Schrift) können Sie eine 
von Ihnen vorbereitete Schriftzei- 
len-Kombination in Ihre Grafik an 
beliebiger Stelle einfügen.Bei¬ 
spielsweise könnten Sie damit Ihren 
Briefkopf, Ihre Visitenkarten oder 
die Programmkassetten-Hüllen be¬ 
drucken. Siehe auch "Tips und 
Tricks". 

0 Mit "H" (Hintergrund) können Sie 
Ihre Grafiken vor der Aufzeichnung 
mit einem von Ihnen zu bestimmenden 
Background versehen. Der gegenwär¬ 
tige Hintergrund wird Ihnen im 
Hauptmenue jeweils in der "H"-Zeile 
in einem schwarzen Kästchen ange¬ 
zeigt. Nachdem Sie nun "H" gedrückt 
haben, erscheint das Background- 
Menue und der Computer fragt Sie: 
"Welches Zeichen soll der Back¬ 
ground sein?" und macht Ihnen ei¬ 
nige Vorschläge. Nachdem Sie die 
Nummer des von Ihnen gewünschten 
Zeichens eingegeben haben, verwan¬ 
delt sich der Bildschirm blitz¬ 
schnell in den gewünschten Hinter¬ 
grund, um nach einigen Sekunden 
selbstständig ins Menue zu wech¬ 
seln. 

0 Mit "Z" (zeigen) können Sie mit 
einem Maschinenprogramm den gegen¬ 
wärtigen Hintergrund blitzartig auf 
den Bildschirm rufen. 

0 Als kleinen Gag können Sie mit 
dem "I" (invers) jede aufgerufene 
Grafik in Ihr inverses Ebenbild 
verwandeln und auf dem Printer 
ausdrucken lassen. 

0 Schließlich haben Sie noch mit 
dem "P" (Programm intern) die 
Möglichkeit 5 weitere programmin¬ 
terne Unterprogramme aufzurufen. 
Wenn Sie "P" gedrückt haben er¬ 
scheint: "Menue - Programm intern". 
Hier haben Sie als besonderen Lek- 
kerbissen folgende Möglichkeiten: 

- Mit 1 erfahren Sie blitzschnell 
über ein Maschinenprogramm den noch 
vorhandenen freien Speicherplatz, 
falls Sie Ihr Programm noch erwei¬ 
tern wollen. 

- Mit 2 haben Sie eine Art "Disas¬ 
sembler", mit dem Sie, ausgehend 
von einer gewünschten Adresse, den 
Speicherinhalt fein säuberlich aus¬ 
gedruckt bekommen, und zwar in der 


Reihenfolge: 

* Adresse dezimal 

* Adresseninhalt dezimal 

* Charakter des Codes 

* Adresseninhalt hexadezimal 

- Mit 3 bekommen Sie einen MC- 
Loader. Falls Sie zu den drei, in 
einer REM-Zeile befindlichen Ma¬ 
schinenprogrammen noch weitere hin¬ 
zufügen wollen, verfahren Sie ein¬ 
fach wie im Abschnitt "EINGEBEN DES 
PROGRAMMES, Stufe 2" beschrieben. 
Für diejenigen unter Euch, die noch 
nicht soweit sind, können diesen 
Punkt vorläufig einfach vergessen. 

- Mit 4 erreichen Sie jetzt ein 
Unterprogramm, mit dem Sie die 
wortsprachliehen Bezeichnungen ^er 
12 Variablen, im Datenveränderungs- 
Menue neu benennen können (Ver¬ 
gleiche auch Abschnitt "EINGEBEN 
DES PROGRAMMES, Stufe 4"), 

- Mit der 5 schließlich, können Sie 
das von Ihnen womöglich in Teilbe¬ 
reichen veränderte Programm erneut 
auf Kassette speichern. Das Pro¬ 
gramm startet sich dann selbst mit 
dem Hauptmenue. Dies gilt nur für 
den Fall, daß noch ein paar Bytes 
übrig sind. Der Bildschirmspeicher 
für die 10 Grafiken belegt nämlich 
alleine 7000 Bytes. Aber trotz der 
Tatsache, daß das Programm wegen 
seiner Universalität und seiner 
Benutzerfreundlichkeit sehr umfang¬ 
reich ist, bleiben Ihnen immer noch 
700 bis 800 Bytes zur freien Ver¬ 
fügung. Vergleiche auch "Tips und 
Tricks, 7.Absatz"FalIs". 

TECHNIK DER GRAFIK 

Mit der Kernfunktion des Programmes 
werden 10 Einzelgrafiken übereinan¬ 
der gezeichnet, die jeweils aus 
einer, von Ihnen bestimmten Grund¬ 
form besteht: Kreise, Ellipsen, 
Achterschlaufen und alle Arten von 
Verzerrungen dieser Grundformen. 
Mit der Modifikation der Variablen 
werden diese Einzelgrafiken rhyth¬ 
misch, schrittweise vergrößert, 
verkleinert, verengt, erweitert, 
vermehrt, vermindert, einseitig 
oder zweiseitig verzerrt und dann 
übereinander gezeichnet. 

Obwohl der ZX81 in seiner Grundform 
keine hochauflösende Grafik auf dem 
Bildschirm bietet (auf Printer ist 
das ja ganz einfach), werden Sie 
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überrascht sein von der Präzision 
des Programmes und seiner Ergebnis¬ 
se, sowie von der Anzahl der Mög¬ 
lichkeiten, die für die Veränderung 
einer Grafik geboten wird. Auch der 
Vorwurf, der ZX81 hätte kein Mapped 
Memory ist damit widerlegt. 
EINGEBEN DES PROGRAMMES 
Stufe 1: Zunächst tippen Sie das 
Listing von Zeile 1 bis Zeile 5320 
in Ihren Computer ein (Liste 1). 
Wenn Sie alles überprüft haben, 
starten Sie das Programm mit RUN 
10. Auf dem Bildschirm müßte dann 
das Hauptmenue mit seinen acht 
Wahlmöglichkeiten erscheinen. Aus 
Sicherheitsgründen betätigen Sie 
nun die BREAK-Taste und geben ein; 
RUN 15. Wenn jetzt wieder das 
Hauptmenue erscheint, können Sie 
sicher sein, daß der erste Teil des 
Programmes richtig eingegeben wur¬ 
de. 

Stufe 2; Jetzt kommt das Maschinen¬ 
programm. Sie drücken jetzt die 
Taste "P” und gelangen ins Arbeits¬ 
programm. Berühren Sie dann die 
Taste "3",erhalten Sie den MC- 
Loader. Mit der Aufforderung: 
"Startadresse?" befinden Sie sich 
schon im INPUT-Modus. Als Start¬ 
adresse geben Sie ein: "16514" und 
NEW-LINE. Jetzt nehmen Sie Liste 2 
mit den Maschinencode-Werten und 
tippen Wert für Wert in dezimaler 
Form mit NEW-LINE ein. Nach jedem 
NL erscheint in der Bildschirmmitte 
zur Kontrolle : 

-die Adresse 

-der Dezimalwert, und 

-der Character der später in der 

REM-Zeile sitzt. 

Sollten Sie an der KontrolIzeile 
sehen, daß Sie sich vertippt 
haben...nur keine Panik...; Sie 
merken sich die Adresse mit dem 
falschen Wert, geben als nächsten 
Wert "999" ein, und nach der Auf¬ 
forderung: "Startadresse?" - die zu 
ändernde Adresse mit dem richtigen 
Wert usw. Nach dem letzten Wert 201 
in Adresse 16572, geben Sie jetzt 
ein; "555" und das Programm sagt 
Ihnen wie es weiter geht. Wenn Sie 
später ab Adresse 16573 ein weite¬ 
res Maschinenprogramm (52 Bytes) 
anfügen wollen, gehen Sie ebenso 
vor. 

Stufe 3; Wieder im Arbeitsprogramm, 


drücken Sie auf "1". Sofort erfah¬ 
ren Sie mit den soeben eingetippten 
MC-Programm, wieviel Speicherplatz 
Sie für Programraerweiterungen noch 
zur Verfügung haben. Um nun die 
gerade eingegebenen MC-Programme 
vor versehentlichem editieren zu 
schützen, drücken Sie auf BREAK und 
geben im Direkt-Modus ein: "POKE 
16510,0". Ihre REM-Zeile hat jetzt 
die Nr. "0" und kann nicht mehr 
editiert und damit zerstört werden. 
Stufe 4: Jetzt geht es mit GOTO 
1000, und mit "P" wieder ins Ar- 
beitsmenue, dann mit Taste "4" in 
das Unterprogramm zur Eingabe der 
wortsprachlichen Bezeichnungen für 
die 12 Variablen der Grafikformel. 
Sie nehmen jetzt die Liste 3 und 
geben Zeile für Zeile mit NL auf 
dem Bildschirm ein (Zeilennummer, 
Punkt, Bezeichnung, Zwischenräume 
und Variable). Alle Zeilen werden 
zur Kontrolle ausgedruckt. Nach der 
zwölften Zeile geht es mit der 
Berührung einer Taste ins Hauptme¬ 
nue. Sollten Ihnen die Bezeichnun¬ 
gen nicht aussagefähig genug sein, 
können Sie sie später jederzeit 
ändern. 

Stufe 5 und START:Bevor Sie jetzt 
weitermachen, sollten Sie das Pro¬ 
gramm mindestens zweimal abspei¬ 
chern. Gehen Sie mit "P" ins Ar¬ 
beitsprogramm. Recorder aufnahmebe¬ 
reit machen und laufen lassen, und 
sofort auf "5" drücken. Der Bild¬ 
schirm wird jetzt für etwa 6 1/2 
Minuten grau, dann startet sich das 
Programm von selbst mit dem Haupt¬ 
menue. Jetzt brauchen Sie nur noch 
die Werte für die erste Grafik 
eingeben. Mit "A" gelangen Sie ins 
Datenveränderungsmenue und Sie er¬ 
halten die zwölf vorher eingegebe¬ 
nen Begriffe mit den Werten = "0", 
denn die Variablen haben ja noch 
keinen Wert zugewiesen bekommen. 
Gehen Sie jetzt vor wie unter Punkt 
3 mit A beschrieben. Als Grundwerte 
nehmen Sie zunächst die Werte aus 
Liste 3. Nach jeder gezeichneten 
Grafik können Sie die Werte ein 
wenig verändern. Aber...Vorsicht, 
manchmal genügt es einen Wert nur 
um 0,5 nach oben oder unten zu 
verändern. Gehen Sie am Anfang nur 
schrittweise vor, bis Sie das Pro¬ 
gramm besser kennen. Nachdem Sie 
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den Variablen die Werte zugewiesen 
haben und mit "M" gespeichert sind, 
drücken Sie im Hauptmenue auf "G” 
so wie in Punkt 4. beschrieben usw. 
TIPS UND TRICKS 

Starten Sie das Programm nie mit 
RUN, nur das allererste Mal, sonst 
werden alle Grafiken im Speicher 
und die Bezeichnungen für die Va¬ 
riablen gelöscht.Vergessen Sie 
nicht vor jeder Grafik den Hinter¬ 
grund festzulegen.Beim Grafik-Plot- 
ten ist absichtlich keine Überlauf¬ 
sperre eingebaut. Falls ein Plot- 
Punkt über den Rahmen von 44 mal 64 
Punkten hinausgerät, bricht das 
Programm mit Fehlermeldung "B" ab. 
Die entstandene Grafik ist meistens 
trotzdem sehr anschaulich und kann 
mit COPY gerettet werden. 

Bei Programmabbruch immer mit GOTO 
1000 wieder starten. Bei Disassem- 
bler-Betrieb kann nach Fehlermel¬ 
dung "5" mit CONT weitergemacht 
werden.Wenn Sie einmal das Entste¬ 
hen der Grafik im SLOW-Modus miter¬ 
leben wollen, dann löschen Sie 


vorübergehend Zeile 70.Wenn Sie 
keinen ZX-Printer anschließen, ge¬ 
schieht bei COPY einfach - 
nichts.Falls Sie Ihr Programm we¬ 
sentlich erweitern wollen und der 
Speicherplatz ist zu Ende, ändern 
Sie Zeile 10 in ; " DIM A$ (9,704) 
”. Sie haben dann zwar nur noch 
neun Grafikspeicher, aber sofort 
zusätzliche 704 Bytes für Ihr Pro¬ 
gramm. Mit "GOTO 10" ist der neue 
Speicher initialisiert und es kann 
wieder los gehen. Wenn Sie schon 
bei der Eingabe des Programmes 
wissen, daß Sie zusätzlich ein 
längeres Maschinenprogramm instal¬ 
lieren wollen, dann verlängern Sie 
die REM-Zeile gleich um weitere 100 
Bytes. 

Mit BREAK und LIST 2054 gelangen 
Sie direkt in das "SCHRIFT-UPRO". 
Durch editieren und Ändern der 
PRINT-AT-Zeilen 2066 bis 2071, 
können Sie sowohl den Text, als 
auch die künftige PRINT-Position 
nach Ihren Wünschen neu gestalten. 

Franz Joseph Schreiner 


1 REM .1 

> • . 6 • . • . 

> 9 . • . • • • 

2 REM .1 - 


. « 7 
10 . 


9.'100.110 , 

3 REM 

MULTIGRhPH 


UON F- -J.5CHREINER 
EUER CHIP-SPECIHL 


SS LET YP=YP+YY 
90 NEXT J 
95 SLÜUi 
100 G OT Ü 700 
1S0 CLS 
182 LET N=0 
1S5 FÜR 1=1 TO 16 
187 PRINT RT T . N ; "[j 

faa 

133 LET N=N+1 

189 PRINT RT I,N;"FRLSCHE EINGR 
SE 

190 NEXT I 
200 CLS 

220 PRINT "MC - SCREENLORDER - 


FRLSCHE E 




9 

GOTO 1000 


MENUE 

> f ' 


10 

DIM H$ (10 .. 704) 


O O 

PRINT ■ 

*UELCHES ZEICHEN SOLL 

11 

GOTO 1000 




BRCKGRuUND SEIN 7“, 

15 

DIM E$ ( 12 .. 20) 





60 

G OT O 1000 


226 

PRINT 


70 

Fh5T 


227 

PRINT ‘ 

'ZhHL UON 1 BIS 2S“ 

71 

RRND ÜSR 16514 


2 2 'S 

PRINT 


“7 0 

PLOT 0,43 


230 

PRINT ■ 

.0'' ■* = UEISS“ , , “ “ “S“ 

74 

FOR J=OI TO UR STEP C 

yi 

*■= 

, ^ ...... Q 1 

‘ “ = f « 

“7 er 

FOR 1=0 TO Ü^KS STEP 

1 

231 

PRINT ■ 

. .. .. ^ ..... .. .... ^ .£ 


8 0 PL DT X P +. J ^ E E -i«- 5 I r-J ( I Ü J ^ J :i * 
PI) ,YP-fü-i«-HE:<-CüS (1/ (J^YU) ^PI) 

S5 NEXT I 
87 LET XP=XP+XX 


0“ “ = “21“ " = M .. 

.23“ “ = “ “ “ “ , , 

232 PRINT hT 20.0.“MÜMENThNER H 
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CPEEK 16524) 


1S0 


DER 
N D” 


INTERGRUND = ’* ; CHR $ 

235 INPUT HZ 

236 IP HZ>28 THEN GOTO 

249 POKE 16524,HZ 

250 RRND USR 16514 

251 PRINT RT 10,3;"DRS IST 
NEUE“,'‘H I N T E R G R U 

255 FÜR 1=1 TO 30 

256 NEXT I 

295 G OT O 1000 

296 CLS 

297 GOTO 302 

300 CLS 

301 GDSUB 332 

302 PRINT "UELCHE GRRFIK UÜLLEN 

SIE SEHEN "BITTE NUMMER EIN 

GEBEN -->*• 


LTE RBFRRGEN",,, 

570 PRINT "3- = MC - LORDER",,, 

" U O R SICHT" 

580 PRINT ,,TRB 5,"3CREENLDRDER 
= 16514" 

585 PRINT TRB 5 
= 16532" 


"INUERSES BILD 
"FREE BYTES = 1 


590 PRINT TRB 5 
6560",,, 

592 PRINT "4. = URRS-BEZEICHNUN 

G RENDERN" 

593 PRINT " U O R 5 I C H T 

GENRIJ RNSEHEN < 

*' ’i- .* -• 

595 PRINT "5. = SRUE PROGRAMM" 

596 PRINT 

597 PRINT "NL = HRUPTMENUE" 


303 

INPUT N 


600 

IF 

INKEY4 = '*'’ 

THEN GOTO i 

600 

304 

CLS 


610 

IF 

INKEY4 = '* 

THEN GOTO 

300 

305 

PRINT R$(N) 


620 

IF 

INKEY4="2" 

THEN GOTO 

300 

306 

POKE 16418,0 


0 





307 

PRINT RT 22,0 

; .Z""=COPY / 

630 

IF 

INKEY4=“3" 

THEN GOTO 

320 

"I" 

"=INUERS /""NL 

""=MENUE" 

0 





308 

PRINT RT 23,0 

;*‘'’"N""= NRECH 

635 

IF 

INKEY 4 = ■•4" 

THEN GOTO 

400 

-TES 

BILD" 


0 





309 

IF INKEY$="" 

THEN GOTO 309 

640 

IF 

INKEY$="5" 

THEN GOTO 

203 

310 

POKE 16418,2 


0 





317 

IF INKEY4="N" 

THEN GOTO 296 

698 

GOTO 1000 



318 

IF INKEY 4 = ”” 

THEN GOTO 318 

700 

POKE 16418,0 



320 

IF INKEY4=”Z" 

THEN COPY 

710 

PRINT RT 22,0 

;"""M""=MEMORY 

321 

IF INKEY 4 = ” *' 

THEN GOTO 321 

/ "' 

’ Z " * 

•=COPY^/ NL 

=MENUE"; 


325 

IF INKEY4 = ‘* I" 

THEN RRND USR 

720 

IF 

INKEY 4 = " *■ 

THEN GOTO 

720 

165 

32 


“7 0=’ 

POKE 16418,2 



326 

IF INKEY 4 = *' '■ 

THEN GOTO 326 

726 

IF 

INKEY$="M" 

THEN GOTO 

730 

327 

IF INKEY$="Z" 

THEN COPY 

727 

IF 

INKEY4 = '’Z" 

THEN COPY 


330 

GOTO 1000 


729 

GOTO 1000 



332 

PRINT "BELEGTE BILDSPEICHER 

730 

POKE 16418,0 




.. . 


732 

PRINT RT 22,0 




335 FOR 1=1 TO 10 

337 IF CODE R$(I,1)<>0 THEN PRI 

NT I; " - " , , 

338 NEXT I 
340 RETURN 

350 RRND USR 16514 

355 PRINT RT 10,2:"DRS IST DER 

HINTERGRUND" 

360 FOR 1=1 TO 50 
365 NEXT I 
395 GOTO 1000 
500 CLS 

510 PRINT " MENUE - INTERNE UNT 
ERPROGRRMME" 

515 PRINT 

550 PRINT "1. = FREIER SPEICHER 

PLRTZ",,, 

560 PRINT "2, = ""DISR5SEMBLER" 

" ADRESSENINHR 


734 PRINT RT 22,0;"MEMORY-FREI= 

735 FOR 1=1 TO 10 

740 IF CODE R4(I,i:i=0 THEN PRIN 
T I .; " . " 

745 NEXT I 

750 PRINT RT 23,0" UOH IN ? NR. 
EINGEBEN (10=R) " 

755 IF INKEY4="" THEN GOTO 755 
757 If' CODE INKEY4>38 OR CODE I 
NKEY4<1 THEN GOTO 732 
760 POKE 16418,2 

765 LET I4=INKEY4 

766 LET R=(CODE 14)“28 
770 GOTO 2000 

800 CLS 

810 PRINT RT 10.0;"SIE HABEN NO 
CH " (USR 16560) -68; " BYTE FR 
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EI“ 

511 PRINT 

512 PRINT “PROGRRMNLFlENGE = “ ; ( 
PEEK 16396+256^PEEK 16397)-16509 

BYTE“ 


315 

PRINT “DRTENBEREICH = “.:( 

PEEK 

16404+256^PEEK 16405)-(PEEK 

16400+256+PEEK 

16401),“ BYTE“ 

820 

FOR 1=1 TO 

50 

830 

NEXT I 


840 

GOTO 500 


1000 

CLS 


1005 

SLOU 


1010 

PRINT 

M E N LI E * + * 

t P f 

1020 

PRINT .'G' 

•“= GRRFIK NEU ZE 


ICHNEN“ , .. . 

1030 PRINT . B““= GRRFIK ZEIGEN 

,.M*"‘= UhRIRBL - LISTE LETZTE 

GRfiFIK“,, 

1035 PRINT GRRFIK NODIFI 

ZIEREN“,,. 

1040 PRINT j. S““= SCHRIFT IN G 

RRFIK“ 

1041 PRINT RT 12,19; “P"*^ OHNE“ 

1042 PRINT RT 13,0;. H““= HINTE 

RGRUND = “;RT 13,19;“|“;RT 13,21 
;CHR$ (PEEK 16524);RT 13,23;“| Z 
EICHEN“ 

1043 PRINT RT 14,5;“RENDERN“;RT 
14,19; “LmmJI =:UEI55“, ,, 

1047 PRINT . Z““= HINTERGRUND Z 

EIGEN“,,, 

1043 PRINT RT 18,0 ; “ 

INTERN 

E UNTERPROGRRMME «Jt * * “ , , 


1049 

PRINT .P 


F' R U U 

RRHH- 

INTE 

RNE 

ÜPROS“ 





1050 

IF INKEY$= 

““ THEN 

GOTO 

1050 

1060 

IF INKEY$= 

“Z“ 

THEN 

GOTO 

350 

1070 

IF INKEY$= 

“G“ 

THEN 

GOT O 

70 

1080 

IF INKEY$= 

■*B“ 

THEN 

GOT O 

300 

1090 

0 

II^ INKE Y $ = 

“R" 

THEN 

GOT 0 

410 

1100 

IF INKEY$ = ' 

' * S “ 

THEN 

GOTO 

205 

4 






1110 

IF INKEY$= 

“H“ 

THEN 

GOTO 

200 

1120 

0 

IF INKEY$= 

'' U ’' 

THEN 

GOTO 

500 

1130 

IF INKEY$= 

“P“ 

THEN 

GOTO 

500 

1150 

CLS 





1200 

GOTO 1000 





2005 

FR ST 





2010 

FOR 1=0 TO 

21 




2020 

FOR J=1 TO 

•'^2 




2030 

L ET H $ (H , (U + IS 2 Tt* I) ) 

=CHR$ 

PEE 


K (PEEK 16396+256*PEEK 16397+J+3 


3*1) 

2040 

NEXT 

,J 



2050 

NEXT 

I 



2051 

SLOU 




2052 

IF INKEY 

$ = “ 

“ THEN GOTO 2052 

2053 

GOTO 

1000 


2054 

CLS 




2055 

GOSUB 

33 

2 


2056 

PRINT 

“NR . 

EINGEBEN“ 

2057 

IN PUT 

0 



2058 

CLS 




2065 

PRINT 

R$ 

( 0 ) 


2066 

PRINT 

RT 

9 , 







2067 

PRINT 




2068 

PRINT 

RT 

10 

,5;“ COMPUTER - 

GRRFIK 

•• 



2069 

PRINT 

RT 

11 

,5;“ RUF DEM 

““ZX-31“ 

.1 .. 



2070 

PRINT 




2071 

PRINT 

RT 

12 



•• 



2079 

GOTO 

700 




2080 SRUE “MULTIGRRPGD“ 

2090 GOTO 1000 

3000 CLS 

3001 PRINT “5PEICHERINHRLT BETRR 

CHTEN RB RDRESSE 

3002 INPüT B 

3003 PRINT B 

3005 PRINT “BIS RDRESSE 

3006 INPUT D 

3008 CLS 

3009 PRINT “STRRTRDR: = “;B;“-“; 
D 

3010 PRINT “RDR.“;TRB 7;“DEZ.“;T 
RB 11;“CHR$“;TRB 20;“HEX.“ 

3016 FÜR I=B TO D 

3017 LET M=INT (PEEK 1/16) 

3019 PRINT I;TRB 7;PEEK I;TRB 11 

;CHR$ PEEK I;TRB 20;CHR$ (M+23): 

CHR$ (PEEK I-I6*r-1 + 2S;i 

3020 NEXT I 

3030 PRINT “DRS SIND DIE INHRLTE 
DER UON IHNEN GEUUENSCHTEN R 

DRESSEN“ 

3050 IF INKEY$=:““ THEN GOTO 3050 
3060 GOTO 500 
3200 CLS 

3210 PRINT “STRRTRDR; = '? “; 

3220 INPUT S 
3230 PRINT S 

3235 PRINT RT 16,0,“FORTLRUFEND 


CODE 

IN DEZ 

IMRLZ 

:RHL EINGEBEN“ 


3236 

PRINT 

“BEI 

EINGRBE 555 = 

ST 

OP “ 

3238 

PR INT 

“BEI 

EINGRBE 999 = 

IR 
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RTUM" 

3S4.0 FOR I=S TO ITOOO 
3250 INPUT C 

3255 IF C=555 THEN GOTO 3300 
3257 IF 0=999 THEN GOTO 3200 

3260 POKE I.C 

3261 GOSUB 3500 
3270 NEXT I 

3300 PRINT RT 10,0,"PROGRRMH GEL 
hDEN" 

3310 PRINT 

3320 PRINT "TRSTE BERUEHREM = 

2 U R U ECK INS INT ERN-M 

ENÜE" 

3350 IF INKEY$="" THEN GOTO 3350 

3:360 GOTO 500 

3500 PRINT RT 10.0 : 


3505 PRINT RT 10,0;I.:TflB 7;PEEK 

I ;TRB 11; OHR $ PEEK I 

3510 RETURN 

3600 DIM E(12:i 

3700 LET UI=E(1' 

3710 LET UR=Ei:2:i 
3720 LET DI=Ei3:i 
3730 LET K5=E(4.:i 
374-0 LET XP=Ei5;i 
3750 LET BE=E(6:i 
3760 LET XU=E.i7:i 
3770 LET YP=EU3:i 
3780 LET HE=E(9:i 
3790 LET YU = E (10 J 
3800 LET XX=E(11) 

3810 LET YY =E i12 J 
3:3:50 GOTO 1000 

3900 FOR 1=15 TO 21 

3901 PRINT RT I . 0"FRL5CHE EINGR 

be noch-einhrl*#*** 

3910 FOR J=1 TO 3 

3915 NEXT J 

3920 PRINT RT 1.0.;" 


3930 NEXT I 
394-0 GOTO 4-160 
4-000 CLS 

4-002 PRINT BEZEICHNUNGEN REN 

DERN ** NN=NUMHER D.ZEILE 

.•••UR=URRIRBLE (1-14- = TEXT ) 


4.005 PRINT RT 20,1NN . 1234.56789 
01234 UR" 

4006 PRINT RT 3,3 NN , 12:34567890 
1234 UR" 

4020 FOR K=1 TO 12 

4030 PR INT RT K +3,0 K ; " . " ; 

4040 INPUT ESCK) 

4045 PRINT RT K+3 , :3 : E$ (K ) 


4050 NEXT K 

4060 IF INKEYa="" THEN GOTO 4060 
4070 GOTO 1000 
4100 CLS 

4110 PRINT "ORTEN UERRENOERN ** 
MENUE »*»»»" 

4111 PRINT 

4120 FOR 1=1 TO 12 

4130 PRINT Ei (1.1,:" = ".;TflB 27; E ( 

I) 

4140 NEXT I 
4150 PRINT 

4160 PRINT RT 15 0;" WELCHE ZEILE 
RENDERN ? NR = ".; 

4170 PRINT RT 19.. 0;"""M"" = URRI 

RBLE IN ■•"£"" SPEICHERN UN 

D ZURUECK INS HRUPTMENUE" 

4200 INPUT U$ 

4205 IF CODE U$=50 THEN GOTO 378 
0 

4210 IF C O D E U $ •; 2 8 O R C O D E U i > 3 7 
THEN GOTO 3900 

4217 IF URL U$;;12 THEN GOTO 3900 

4300 LET U=URL US 

4305 PRINT RT 15,27.;U 

4315 PRINT RT 17,. 0,:" WERT EINGEBE 

N --> ": 

4400 INPUT W 

4450 LET E(Ui=U 

4460 PRINT U 

4465 PR INT RT U + 1 .. 23 

4470 PRINT RT U + 1,27;W 

44.30 FCiR 1 = 15 TO 21 

4485 PRINT RT 1.0;" 

4490 NEXT I 
4500 GOTO 4160 
5000 CLS 

5010 PRINT "»»» URRIRBLENLISTE + 

5020 PRINT 

5050 FOR 1=1 TO 12 

5100 PRINT ES ( II ,:"=“; E ( II 

5200 NEXT I 

5250 PRINT RT 20,0; .TRSTE"" = 

HRUPTMENUE ....- t .-" 

- COPY" 

5:300 IF INKEYS = "" THEN GOTO 5300 
5310 IF INKEYS="2" THEN COPY 
5320 GOTO 1000 


3Tl=lRTADR : 

= 16514 

-16572 

HDR • 

DEZ 

- CHR$ 

HEX 

16514 

42 

E 

2R 

16515 

12 

£ 

0C 

16516 

64 

RND 

40 


30 
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16517 

6 


06 

16516 

24 

y 

18 

16519 

197 

UAL 

C5 

16520 

6 

■■ 

06 

16521 

32 

4 

20 

16522 

35 

"7 

23 

16523 

54 

0 

36 

16524- 

9 


09 

16525 

16 

( 

10 

16526 

251 

CLS 

FB 

16527 

193 

AT 

CI 

16528 

35 

“7 

O 

16529 

16 

( 

10 

16530 

244 

POKE 

F4 

16531 

201 

TAN 

C9 

16532 

42 

E 

2R 

16533 

12 

£ 

0C 

16534- 

64 

RND 

40 

16535 

6 

■■ 

06 

16536 

22 

- 

16 

16537 

197 

UAL 

C5 

16538 

6 

■■ 

06 

16539 

32 

4 

20 

1654-0 

35 

7 

23 

1654-1 

126 

7 

7E 

1654-2 

254’ 

RETURN 

FE 

1654-3 

127 

■y 

7F 

1654-4. 

56 

5 

38 

1654-5 

4 

■ 

04 

1654-6 

222 

THEN 

DE 

1654.7 

128 

■ 

80 

1654-8 

24 

/• 

18 

1654-9 

2 

m 

02 

16550 

198 

LEN 

C6 

16551 

128 

■ 

80 

16552 

119 

7 

77 

16553 

16 

( 

10 

16554- 

241 

LET 

Fl 

16555 

35 

7 

23 

16556 

193 

AT 

CI 

16557 

16 

( 

10 

16558 

234 

REM 

EA 

16559 

201 

TAN 

C9 

16560 

33 

5 

21 

16561 

0 


00 

16562 

0 


00 

16563 

57 

T 

39 

16564 

237 

G 0 5 U B 

ED 

16565 

91 

7 

SB 

16566 

ro 

0 

IC 

16567 

64 

RND 

40 

16568 

237 

GOSUB 

ED 

16569 

82 

7 

52 

16570 

68 

7 

44 

16571 

77 

7 

4D 

16572 

201 

TAN 

C9 

DAS SIND DIE INHALTE 

: Dl 


IHNEN GEUUENSCHTEN ADRESSEN 


DATEN UERAENDERN 

** 1 

MENUE 


01 . UERKL. INNEN 

UI 


1 

02.UERKL.AUSSEN 

UA 


10 

03.GRAFIK-DICHTE 

DI 


1 

04.KREISSEGMENT 

KS 

= 

12 

05.X-PLOTPOSITION 

XP 

= 

32 

06.BREIT / ENG 

BE 

= 

2 

07.X-UERZERRUNG 

:>::u 

= 

6 

08.Y-PLOTPOSITION 

YP 

= 

22 

09.HOCH / ENG 

HE 

= 

2 

10 -Y-UERZERRUNG 

YU 

= 

6 

11.XP WANDERN 

XX 

= 

0 

12-YP WANDERN 

YY 


0 


WELCHE ,ZEILE PENDERN ? NR = 

"H" = UPRIPBLE IN “E“ SPEICHERN 

UND ZURUECK INS HPUPTHENUE 


Eine Publikation von CHIP 


31 
















Sport und Spiel 



Beschreibung des Programmes 

(5000 Bytes) 

Für einen Schützenverein 

geschrieben wurde dieses »Ringzäh- 
lerprogramm. Es unterstützt die 
Auswertung eines Gaurundenwettkam¬ 
pfes. In der vorliegenden Version 
ist es nunmehr möglich, zwei kom¬ 
plette Mannschaften auszuwerten. 
Der Rechner übernimmt dabei sowohl 
die Einzelschützenauswertung, als 
auch die Mannschaftswertung beider 
Mannschaften. 

Gewertet werden pro Schütze vier 
Serien zu je zehn Schuß und pro 


Mannschaft vier Einzelschützen. Der 
Computer verlangt bei der Eingabe 
zuerst den Namen des zu wertenden 
Schützen und die Angabe, welcher 
Mannschaft er angehört (Heim- oder 
Gastmannschaft). Der'Name der eige¬ 
nen Mannschaft kann in der Zeile 
9940 geändert werden. Die Wertung 
für Einzelschützen wird insgesamt 
achtmal (zwei Mannschaften) durch¬ 
laufen, wobei der Computer jedesmal 
vor der Wertung den Namen des 
Schützen verlangt. Nach Beendigung 
der Einzelwertungen wählt man die 
Option "Mannschaftswertung". Der 
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Rechner beginnt nun die ganzen 
Einzelergebnisse (plus Durch¬ 
schnitt) mit den Namen der einzel¬ 
nen Schützen auf den Bildschirm 


0HREH 

* RINGZflEHLER Jt 

* DR U ID ENK O GERRLD 

**##**#*###*#**^^^^^ 

* EUER CHIR-SPECIRL» 




G O S IJ E; 9 9 G 0 

1iiisiij aad=i»W;i=iaiq i n 

CLS 

GOSUB 9500 

PRINT TRB S,"RINGZREHLER" 
POKE 164.16,2 
REM 



100 PRINT 

110 PRINT "1.SERIE 2.SERIE 3.SE 
RIE 4.SERIE." 

120 PRINT "- 

1-40 PP!INT hT 14-,0i "= = = = = = = = = = = £ 

= = = = = ^=;=: = =: = = =:=: = = r: = =: = *' 

14-5 PRINT flT 21,0; ■■ KÜRREKTU 

R MIT •"‘C. 

150 REM 


160 

165 

166 
170 

00 

175 

176 

177 
173 
130 

HR$ 
200 
210 


FÜR F=:l TO 10 

IF INKEY$="" TMEN GOTO 165 
IF INKEV$ = ”.'' THEN GOTO 177 
IF INKEY $ = '*C:’* THEN GOSUB 30 


LET 5$ »F) =INKEy $ 
GOTO 130 
LET 5$ (F) =•• 10 •• 
GOTO 200 
IF 5$ i:f:i <r:HR$ 27 
33 THEN GOTO 165 


OR 5$(F) >C 


PR INT hT F +3,4 5 $ ( F ) 

IF INKEY $ < >“" THEN GOTO 210 


auszugebenr getrennt nach Heim- und 
Gastmannschaft, Anschließend werden 
die Mannschaftsergebnisse errechnet 
und ausgegeben. Gerald Davidenko 


230 

NEXT F 




240 

FOR K=:l TO 

10 



250 

LET Sii:i=S 

i 1) 

+ UhL 

5 $ ( K ) 

260 

NEXT K 




270 

PRINT RT 15,3 

,5(1) 


230 

REM 




290 

FOR F=1 TO 

10 



300 

IF INKEY$= 


THEN 

GOTO 300 

310 

IF INKEY$= 

1. ^ .. 

THEN 

G U T U •-Z* 5 0 

320 

IF INKEY$= 

“C'* 

THEN 

GOSUB 30 


00 

330 

340 

350 

360 

330 

HR$ 

335 

390 

400 

410 

420 

430 

435 

430 

490 

500 

510 

520 

00 

530 

540 

550 

560 

530 

HR$ 


:- $ ( F ^ > C 


LET 5$ (F) =INKEY$ 

GOTO 330 
LET 5$ iF:i =■■ 10'’ 

GOTO 335 

IF 5$ lF:i <C:HR$ 27 OR 
33 THEN GOTO 300 
PRINT hT F+3.12,5$<F) 

IF INKEY$ i >““ THEN GOTO 390 
NEXT F 

FOR K=1 TO 10 

LET 5 (2) =5 (2i +UHL S$(Kj 

NEXT K 

PRINT RT 15,11; 5 1 : 2:1 

REM iMgsiaaiai 

FOR F=1 TO 10 

IF INKEY$ = ‘’” THEN GOTO 500 
IF INKEY$ = '*.'‘ THEN GOTO 550 
IF INKEY $ = ”0'' THEN GOSUB 30 


LET S$ i:f:j = INKE Y $ 
GOTO 530 
LET S$ (F:» =“ 10” 
GOTO 535 
IF s$ i:f:i <chr$ 27 
33 THEN GOTO 500 


OR S$ (f:* >C 


535 

PRINT RT F+3, 

20;5$(F) 


590 

IF INKEY $ < > •* “ 

THEN GOTO 

590 

600 

ne:>ct f 



610 

FOR K=1 TO 10 



620 

LET 5(3) =5(3) 

+URL S$(K) 


630 

NEXT K 



635 

PR INT RT 15,19 , S ( 3 ) 


630 

REM 



690 

FOR F=1 TO 10 



700 

IF INKEY $ = ■’ ” 

THEN GOTO 700 

710 

IF INKEY$=“.“ 

THEN GOTO 

750 

720 

IF INKE Y $ = 

THEN GOSUB 

30 


00 

730 

740 

750 


LET 5${:f:j 
GOTO 730 
LET S$(F:i 


: INKEY $ 


10 ' 
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"760 G 0*F O "7 S 

780 IF S$ (F) -iCHR* 27 OR S$(F)>C. 
HR$ 38 THEH GOTO 700 
785 PRINT fiT F+3,28,S$(F) 

790 IF INKEY$ <>•••■ THEN GOTO 790 

800 NEXT F 

810 FOR K=1 TO 10 

820 LET 8 (4.) =8 (4-J +UflL 8 $ ( K 5 

830 NEXT K 

835 PR INT RT 15,27 8 (.4-) 

1000 REM 

1010 LET SUMME=S (1j +S (£ü +5 ( 5« +5 i 
4-:i 

1015 LET E$=5TR$ SUMME 
1020 PRINT PT 19,0.; “GEShMTERGEBN 
IS DES SCHUETZEN '‘.;P$.;" : S 

UMME 

1025 IF = THEN LET N$(N:i=C$ 

(N) +E$ 

1026 IF B$ = *‘G’* THEN LET M$i:Mj=D4 
(M)+E$ 

1030 PR INT PT 21,0 ’ CO P Y h IJ F D R U 
OKER (J/Nj T" 

1035 IF INKEY$ = '“’ THEN GOTO 1335 
1040 IF INKEY $ = THEN COPY 

1044 POKE 16418,0 

1045 IF ZPEHLER=8 THEN GOTO 9820 

1046 PRINT PT 23,0;“NEUE UERTUNG 
- TPSTE DRUECKEN.“ 

1050 PPUSE 4E4 
1060 GOSUB 9500 


1070 GOTU 80 


MPNN5CHRFT5UERTUNG 


5010 CLS 

5015 PRINT TPB 6, “MPNNSCHPFTSUIER 
TUNG“ 

5020 PRINT 

5025 PRINT TPB 3;X$ 

5030 PRINT 
5035 PRINT N$(l]i 
5040 PRINT 


5045 

PRINT 

N $ ( 2 ) 

5050 

PRINT 


5055 

PR INT 

N $ ( 3) 

5060 

PR INT 


5065 

PRINT 

N $ ( 4 ) 

5070 

PRINT 


5075 

PRINT 

TPB 3 

5080 

PR INT 


5085 

PR INT 

M $ ( 1) 

5090 

PRINT 


5095 

PRINT 

M $ ( 2 ) 

5100 

PRINT 


5105 

PRINT 

.M $ ( 3 ) 

5110 

PRINT 


5115 

PRINT 

M $ ( 4 ) 


5120 REM 


5121 LET SCHNITT: 
28)/40) 

5122 PRINT PT 4,i 
*10)j/10 

5123 LET SCHNITT: 
28) /40:i 

5124 PRINT PT 6,£ 
itl0) } /10 

5125 LET SCHNITT: 
28)/40) 

5126 PRINT PT 8,S 
* 10 j )/10 

5127 LET SCHNITT: 
28)/40) 

5128 PRINT PT 10, 
T*10))/10 

5129 LET SCHNITT: 
28)/40) 

5130 PRINT PT 14. 
T*10;i i . -10 

5131 LET SCHNITT 
28) /40:i 

5132 PRINT RT 16, 
T + 10:i ) /10 

5133 LET SCHNITT 
28) /40:i 

5134 PRINT PT 18, 
T*10)j/10 

5135 LET SCHNITT: 
28) /40:i 

5136 PRINT PT 20 
T*10))/10 


= (URL N$(l,26 TO 
^9; (INT (SCHNITT 
= (URL N$(2,26 TO 
>9: (INT (SCHNITT 
=(URL N$(3,26 TO 
19, (INT (SCHNITT 
= (URL N$(4,26 TO 
,29; (INT (SCHNIT 
=(UPL M$(l,26 TO 
.29, (INT (SCHNIT 
(URL M$(2,26 TO 
.29,(INT (SCHNIT 
(URL M$(3,26 TO 
.29,(INT (SCHNIT 
(URL M$(4,26 TO 
29; (INT (SCHNIT 


5200 REM 


■sia! 


HNUN 


NSCH 




5210 LET HEIM=0 

5211 LET GPST=0 

5220 LET HEIM=UPL N$(l,26 TO 28) 
+ UPL N $ ( 2,26 TO 28) +UPL N $ (3,26 
TO 28)+URL N$(4,26 TO 28) 

5230 LET GPST=UPL M$(l,26 TO 28) 
+ UPL M $ ( 2,26 TO 28) +UhL M $ (3,26 
TO 28)+URL M$(4,26 TO 2R) 

5240 PRINT RT 2,22;HEIM 
5250 PRINT PT 12,22;GRST 
5255 POKE 16418,0 

5260 IF HEIM;>GhST THEN PRINT PT 
23,0,“GRPTULIERE “;X$ 

5270 IF HEIM<GP5T THEN PRINT PT 
23,0.. “GRRTULIERE “;Z$ 

5280 IF INKEY$=““ THEN GOTO 5280 
5285 POKE 16418,2 
5290 CLS 

5295 PRINT “UIUENSCHEN SIE EINE N 
EUE PUSUERTUNG ■?’’ 

5300 IF INKEY$=“J“ THEN RUN 
5 320 G O T O 5 3 0 0 
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Sport und Spiel 


■BITTE geben sie DEN 
ZU WERTENDEN SCHUETZ 


8000 REM 
8010 LET P=F-1 

8015 IF INKEY$ <>■••• THEN GOTO 801 
5 

8020 RETURN 
9500 REM 
9505 CLS 
9510 PRINT 
NRMEN DES 
EN EIN," 

9513 POh^E 16dlS,2 

9515 INPUT fi$ 

9516 PRINT 
9520 PRINT "NPlME 
9525 PRINT RT 5,0;"HEIM- 
STMRNNSCHRFT ? i:H/G:i " 

9530 INPUT B$ 

9531 IF B$<>"H'* RND B $ < > 

GOTO 95:30 

9535 IF B$="H 

9536 IF B$=”H 
954.0 IF B$ = "G 
9541 IF B$ = ‘'G 
9545 CLS 

9550 LET ZREHLER=ZREHLER+1 


WERTUNG RUF 
ODER DRUCKER 
WERTUNG MIT 
DER EINZEL- 
+ DURCHSCHNITT.“ 

9909 PRINT RT 21 
TE ?'■ 

9910 IF INKEY $ 

09 

9911 CLS 

9912 PRINT TRB 3. 
RKLRERUNGEN" 

9913 PRINT ■■- 


BILDSCHIRM 
5. MRNNSCHRFTS 
RUFLISTUNG 
ERGEBNISSE 

0.; "NRECHSTE SEI 

U" THEN GOTO 99 


•DETRILLIERTE E 


ODER GR 


THEN 


THEN LET N=N+1 
THEN LET C$iN:i=:RS 
THEN LET M=M+1 
THEN LET D$(M:*=R$ 


9551 LET Sil 

9552 LET 5.:2 

9553 LET S(3 


) =0 
= 0 
= 0 

9554 LET SC4:i=0 

9800 IF ZREHLER<=8 THEN RETURN 
9810 REM ■IM;UUy8Iä=I^>a=S 


9914 PRINT 

9916 PRINT ■•BEI DER RINGEINGRBE 
BRRUCHEN SIENUR DIE ENTSPRECHEND 
E TRSTE RUF DEM KEYBORRD RNZUTIP 
PEN. EINE MgW EINGREE ERUEBR 
IGT SICH.“ 

9917 PRINT “FUER DIE EINGRBE EIN 

ER mssm DRUECKEN SIE BITTE D 

EN DEZIMRL- PUNKT.“ 

9918 PRINT “SOLLTEN SIE BEI IHRE 
EINEN FEHLER GEMRCHT 
KQENNEN SIE DIESEN D 
TRSTE Wßm KORRIGIERE 


R EINGRBE 
HRBEN, SO 
URCH DIE 
N . “ 

9919 PRINT RT 21,9.: 


GUT SCHUSS 


9920 POKE 16418,0 


9820 

PRINT RT 23 

,0;“MRNNSCHRFTSW 

9921 

PRINT RT 23,0.: “BITTE EINE T 

ERTUNG 

(J./N) 7“ 


RSTE 

DRUECKEN . ■' 

98 30 

IF 

INKEY $ = '■ 

“ THEN GOTO 9830 

9 9 22 

IF INKEY$=““ THEN GOTO 9922 

9840 

IF 

INKEY$=“ 

J“ THEN GOTO 500 

9925 

CLS 

0 




9 9 2 8 

POKE 16418,2 

9850 

IF 

INKEY $ < > 

“J“ THEN GOTO 98 

9930 

REH mvsmsm 

30 




9931 

DIM C$(4,25> 


9900 REM 

9901 PRINT TRB S , “ R INGZREHLER’* 

9902 PRINT 

9903 PRINT “DIESES PROGRRMM BERE 
CHNET RNHRNDIHRER EINGRBEN DRS S 


9 y 3 3 
9934 
9 9 3 5 
9936 


DIM 

DIM 

DIM 

DIM 

DIM 


D$ (4,25) 
S$ ( 10,2) 
S (4 :i 

M$ (4,32) 
N$ (4,32 :i 


CHIESS- 

ERGEBNIS 

EINER WETTK 

9 9 3 7 

LET M=0 

RMPF- 

MRNNSCHRFT.“ 

9938 

LET N=0 

9904 PRINT 

“ C' H s P R u y 

RRMM GLIEDER 

9 9 39 

LET ZREHLER=i 

T SICH 

FÜLGENDERMRSSEN :“ 

9940 

LET X$ = “ISRRi 

9905 PRINT 

TRB 3,“1. 

EINGRBE DER 

9941 

PRINT “BITTE 

GEGNERISC 

HEN 

MRNNSCHRFT 

GR ST 

MRNNSi 

UND DES ZU 


WERTENDEN S 


i; MRX . 

CHUETZEN.“ 



9942 

INPUT Z$ 

9906 PRINT 

TRB 3, ■' 2 . 

EINGRBE HEI 

9 9 4 3 

IF LEN Z$>13 

MÜH) ODER 


GRST(G) MRN 

9950 

RETURN 

NSCHRFT“ 



9 9 8 0 

SRUE “RGS'’ 

9907 PRINT 

TRB 3,“3. 

RUSWERTUNG 

9 9 8 1 

RUN 

DURCH DEN 


COMPUTER*' 

9 9 8 5 

STOP 

9908 PRINT 

TRB 3;"4. 

RUSGRBE DER 

9 9 9 0 

PEM mmänm 


DEN NRMEN DER 
CHRFT EINGEBEN 
18 BUCHSTRBEN)“ 

THEN GOTO 9942 
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Abenteuerspiel 


9991 PRINT 

9992 PRINT 



9994- PRINT PT 12,10, " CREPTED EY" 

9995 PRINT PT 15,14-; D . G " 

9996 PRINT PT IS,11^"SOFTUPRE" 

9997 POKE 164.18,0 

9998 PRINT PT 23,0BITTE EINE T 
PSTE DRUECKEN ” 

9999 RETURN 


Elefanlen-Friedhoff 


Beschreibung des Programmes (6163 
Bytes) 

Bei diesem Spiel finden Sie sich 
plötzlich im tiefsten Dschungel in 
Afrika wieder. Sie beginnen das 
Spiel mit 100.000 KES(die lokale 
Währungseinheit), gespendet von 
großzügigen Reichen, die noch an 
den Geist der Eroberung glauben. 
Mit diesem Geld müssen Sie Vorräte 
kaufen und Eingeborene bezahlen, 
die Sie durch den Dschungel leiten. 
Jeder der Eingeborenen braucht ein 


Essenspaket in der Woche.Nachdem 
Sie Ihre Vorräte gekauft haben, 
beginnt das Spiel richtig. Das 
Spiel dauert 5 Runden, jede Runde 
entspricht einer Woche. Sie müssen 
diese Periode überleben. Wenn Sie 
zu wenig Geld, Nahrung oder Einge¬ 
borene haben, wird der Bildschirm 
schwarz und alles ist vorbei. Eine 
Menge ekelhafter Überraschungen 
lauern im Dschungel auf Sie! 

M. Förster 



TREIBSPNC- 



1 REM ELEFPNTENFRIEDHOF 


UON M.FOERSTER 


FUER CHIP-SPECIPL 


10 LET P=100O00 
20 LET 1=150 
4.0 FOR B = 1 TO 14 

50 PRINT PT 2,3;" DER ELEFPNTE 
NFRIEDHOF " 

60 PRINT PT 2.3 : 

:9B3i[44BE9i" 

70 NEXT B 

80 PRINT "BITTE EINE TPSTE 

DRUECKEN." 

90 IF INKEY*="" THEN GOTO 90 
110 CL3 

120 PRINT "DU HP5T 10O000 KES." 

130 PRINT ,,"UIIEUIELE EINGEBORE 
NE (PRO UOCHE 150 KES)?” 

131 INPUT N 

140 PRINT , "UIEUIELE UERPFLEGU 
NGSPPKETE ZU JE 50 KES7" 

150 INPUT F 

160 LET R=P-(F»50) 

180 IF P-:0 THEN PRINT , , "DU HPS 
T KEIN GELD MEHR." 

190 IF P.;0 THEN GOTO 3500 

200 PRINT .."UIEUIELE GEUEHRE ( 
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Abenleuerspiel 


MIT MUNITION) FUER JE lOOÖ KES?’* 


210 

INPUT G 


220 

LET R=R-(G#1000) 


230 

IF R<0 THEN GOTO 

130 

240 

PRINT .,“WIEUIELE 

ZELTE FUE 

JE 

500 KES?“ 


250 

INPUT T 


260 

LET R=:R-(T*500) 


270 

IF R<0 THEN GOTO 

130 

280 

CLS 


290 

GOSUB 7000 


330 

PRINT ....“BITTE 

EINE TRSTE 

DRUECKEN.“ 


335 

IF INKEY$=”“ THEN 

GOTO 335 

336 

FOR C=:l TO 5 


34.0 

LET R=R-(N*I) 


34-2 

LET F=F-N 


345 

LET Z=0 


346 

IF R<0 THEN GOTO 

130 


34-7 IF F<0 THEN PRINT . , , ,‘'DU H 
flST KEIN ESSEN MEHR.” 


343 

IF Fi0 THEN 

GOTO 8500 

350 

IF RND > .8 

THEN GOSUB lOOO 

360 

IF RND > .8 

THEN GOSUB 1500 

370 

IF RND>.3 

THEN GOSUB 2000 

380 

IF RND > .8 

THEN GOSUB 2500 

390 

IF RND > - 8 

THEN GOSUB 3000 

400 

IF RND > .3 

THEN GOSUB 3500 

410 

IF RND>.975 

THEN GOTO 4000 

460 

IF Z=0 THEN 

GOSUB 4500 

470 

CLS 



480 

GOSUB 7000 


490 

PRINT .,. 

.“BITTE EINE TRSTE 

DRUECKEN.“ 



500 

IF INKEY$ 

= ” ” 

’ THEN GOTO 500 

520 

NEXT C 



570 

CLS 



530 

PRINT “%“ 

:TRB 15;'V" 

590 

PRINT “ % 

" TRB 9 ; " JPfc 

600 

PRINT TRB 

2; 

"1 ■■ ;TRB 8; 





610 

PRINT TRB 

2; 

•• % ";TRB 7 ; "JV 

SU- 




620 








630 

PRINT TRB 

7; 

" ^ % •• 

640 

PRINT TRB 

7; 

■■ r* 1 DER" 

650 

PRINT TRB 

T; 

1 1 FRIEDH 

OF“ 




660 

PRINT TRB 

7: 

" ^ 1 DER" 

670 

PRINT TRB 

7; 

" 1 ■%. 1 ELEFRNT 

EN“ 




630 

PRINT TRB 

7 ; 

"1 

690 

PRINT TRB 

•7 ; 


700 









710 PRINT “DU HfiST ES GES 


CHRFFT UND“ 

720 PRINT “HRST NOCH “;R;“ KES 
UEBRIG.“ 

750 GOTO 8630 
1000 LET Z=1 

1020 LET H = INT (RND«itl0) +1 
1030 CLS 

1035 PRINT RT O.O: 

104.0 PRINT .“DU WIRST UON LOEUE 
N RNGEGRIFFEN“ 

1050 PRINT ..“UND HRST “ G; “ GEU 
EHRE,” 

1055 IF G-Cl THEN GOTO 1200 
1060 PRINT .. .. “UIEUIELE WILLST DU 
UERUENDEN7“ 

1070 INPUT Y 

1075 IF Y>G THEN GOTO 1070 
1030 IF Y*RND<.S THEN GOTO 1200 
10S5 LET GsG-Y 

1090 PRINT , “DU GEWRNNST MIT ”j 
i:Y^2) .“KISTEN MUNITION.” 

1100 PRINT ....“BITTE EINE TRSTE 
DRUECKEN-“ 

1110 IF INKEY$=”” THEN GOTO lllO 
1130 RETURN 

1200 PRINT ...H;“ DEINER EINGEBOR 
ENEN WURDEN”.“GETOETET. ”; 

1210 LET N=N-H 

1220 IF N<0 THEN PRINT “DU HAST 
KEINE MEHR.” 

1230 IF N<0 THEN GOTO 8500 
124.0 GOTO 1100 
1500 LET Z=1 

1520 LET H=INT <RND*20)+1 

1530 CLS 

1531 FÜR B=1 TO 7 
1535 PRINT RT O O; 


1540 

PRINT 

TRB 3;"TREIBSRND" 

1550 

PRINT 

" |";TRB 14,;"." 

1560 

PRINT 

" 1";TRB 14;"V" 

1570 

PRINT 

" 1 A" ; TRB 13; "I 1" 

1580 

PRINT 

" II";TRB 13;"% 1" 

1590 

PRINT 

" II" ; TRB 14; "| | " 

1600 

PRINT 

" ■ ";TRB 14; "1^ " 

1610 

PRINT 


1620 

PRINT 

RT B-1,7;" " 

1630 

PRINT 

RT B,4;" m 

1640 

IF B<7 

THEN PRINT RT B + 1..4; 



1650 

IF B<6 

THEN PRINT RT B+2,5; 

1660 

IF B<5 

THEN PRINT RT B+3.6; 

.. ng , 



1670 

IF B<4 

THEN PRINT RT B+4,6; 

“ H ' 

■■ 


1680 

IF B<3 

THEN PRINT RT B+5,5; 

” iT ■ 

' * 
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Abenteuerspiel 


1690 IF B<2 THEN PRINT PT B+6., 4-; 

jr ^ 

1700 NEXT B 

1702 PRINT PT 7 -mmmmmmmmm 

mmr 

1710 PRINT "DU UERL0R5T ";H; 

" EINGEBORENE"IM TREIB5PND." 
1730 LET N=N-H 

174.0 IF N:0 THEN PRINT ,,,,"DU H 
PST KEINE EINGEBORENEN MEHR." 
174.5 IF N-!0 THEN GOTO 8500 
1750 GOTO 1100 
2000 LET Z=1 

2020 LET H=INT (RND»5)+1 
204-0 CL5 

2050 PRINT ..."ES BRICHT EIN GEUI 
TTERSTURM PUS . '' 

2060 PRINT ,,“Ul|Pi5 MfiCH5T DU?" 

2070 PRINT ich CPHPIERE U 

ND UPRTE DEN STURM PB." 

2080 PRINT ICH STELLE MIC 

H UNTER EINEN SCHUETZENDEN BPUM. 

2090 PRINT ,."(C:i ICH UPNDERE UE 

ITER." 


2100 

IF 

INKEY$="" THEN i 

GOTO 2100 

2110 

IF 

INKEY$="fl" THEN 

GOTO 220 

0 




2120 

IF 

INKEY$="B" THEN 

GOTO 230 

0 




2130 

IF 

INKEYS="C" THEN 

GOTO 240 

0 




2140 

GOTO £100 


2200 

PRINT .,"DER STURM 

ZERSTOER 

TE " 

H; " 

ZELTE." 


2210 

LET 

T=T-H 


2220 

IF 

T<0 THEN PRINT 

. . "DU HPS 

T KEINE 

ZELTE MEHR." 



2230 IF T<0 THEN GOTO 8500 
224-0 GOTO 1100 

2300 PRINT ,,"DER BPUM UURDE UOM 
BLITZ GETROF-FEN UND TOETETE " 

H; " EINGEBORENE . " 

2320 LET N=N-H 

2330 IF N<0 THEN GOTO 1220 

234-0 GOTO 1100 

24-00 LET R = INT (RND4(-5) +1 

24.10 IF R = 1 THEN LET B$ = "E HOEHL 

E" 

2420 IF R=2 THEN LET B$="EN HUEH 
NERSTPLL" 

2430 IF R=3 THEN LET B$=" UERLPS 
SENES HPUS" 

2440 IF R=4 THEN LET B$="EN GLET 
SCHERTOPF" 

2445 IF R=5 THEN GOTO 2900 
2450 PRINT ,,"PUF DEM UEG FPNDES 


T DU","EIN";B$ 

2460 PRINT "UND BLIEBST UNUERSEH 
RT , " 

2480 GOTO 1100 
2500 LET Z=1 
2505 CLS 

2510 PRINT .,"DU BIST UERLORENGE 
GPNGEN." 

2511 PRINT "DESHPLB MUSST DU SPP 

EHTRUPPS PUSSENDEN. UM DEN UE 

G UIEDERZU- FINDEN." 

2550 PRINT .."DU HPST ";N;" EING 
EBORENE." 

2560 PRINT ,,"UIEUIELE PRO TRUPP 


2565 INPUT .X 

2570 PRINT ,,"UIEUIELE SPPEHTRUP 
PS? " 

2580 INPUT Y 

2600 IF Y*X:>N THEN GOTO 2580 
2620 IF (RND^fYj >3 THEN GOTO 2650 
2630 IF (RND*X) >4 THEN GOTO 2650 
2640 PRINT .,"DU BIST FUER IMMER 
UERLOREN." 

2645 G OT O 8500 

2650 PRINT .."DU HPST DEN PFPD G 
EFUNDEN." 

2660 GOTO 1100 

2900 PRINT .."LEIDER KONNTEST DU 
KEINEN UNTER-SCHLUPF FINDEN." 
2910 GOTO 8500 
3000 LET Z=1 
3010 CLS 

3030 PRINT "EIN SPRECHER DER E 
INGEBORENEN;" 

3035 PRINT . ..UENN UIR NICHT M 

EHR GELD ERHPL- TEN.. UERDEN UIR 
EUCH UERLPSSEN." 


3040 PRINT . .. "UIEUIEL UIRST DU M 

EHR BEZPHLEN? (PRO PERSON). 

3050 INPUT Y 

3080 IF (RND^Y) >3 THEN GOTO 3200 
3100 PRINT "SIE HPBEN DICH PLL 
E UERLPSSEN." 

3110 GOTO 3500 
3200 LET I=I+Y 

3210 PRINT "SIE SIND EINUERSTP 
NDEN." 

3220 GOTO 11O0 
3500 LET Z=1 


3510 CLS 

3520 PRINT ...."DER UEG IST UON SC 
HLPNGEN ","UERSPERRT." 

3530 PRINT .. ,"UILLST DU..." 

3535 PRINT .,"(P) GEUEHRE UERUEN 
DEN?" 


3540 PRINT .. ."(B) UEITERGEHEN" 
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Simulcrtionsspiel 


3550 LET H = INT iRNO^Kd) +1 
3560 IF INKEY$ = ''" THEN GOTO 3560 
3565 IF INKEY* = '‘fl” THEN GOTO 365 
0 

3570 IF INKEY$<>"B“ THEN GOTO 35 
60 

3580 PRINT .. .H;’‘ DEINER EINGEBOR 
ENEN UURDEN “ .. "GETOETET , " 

3590 LET N=N-H 

3600 IF N<0 THEN GOTO 1220 

3610 GOTO 1100 

3650 PRINT .,"DU HfiST ; INT (H/5 
);“ GEWEHR“;("E" AND INT (H/5)<> 
IJ ,“UERUENDET.“ 

3660 LET G=G-INT (H/Sü 

3670 IF G<0 THEN PRINT ,,**DU HA5 

T KEINE GEWEHRE MEHR,“ 


4-526 LET F=F+H 

4-527 PRINT BONUS +“;H;“ UERPF 

LEGUNG5PRKETE“ 

4-550 GOTO 1100 

7000 PRINT TRB 12;“KE5 “;H 

7010 PRINT ..“EINGEBORENE “;N 

7020 PRINT .,“UERPFLEGUNG “F;“ 

PAKETE“ 

7030 PRINT ..“GEWEHRE “,G 

704-0 PRINT ..“ZELTE “;T 

7050 RETURN 
3500 PAUSE 100 
3510 CLS 

3520 FOR A=0 TO 21 

8530 PRINT “■■■■■■■■■■■■■■■ 

854-0 NEXT A 


3680 IF G<0 THEN GOTO 3500 
3690 GOTO 1100 


4-000 LET 2 = 1 
4010 CLS 

4020 PRINT ..“DIE EINGEBORENEN H 
ABEN DICH ALLEUERLASSEN.“ 

4030 GOTO 8500 


4500 CLS 
4510 PRINT 

isnaaaiiiSDf^Sa 

4520 PRINT . 


“IN DIESER WOCHE GA 


B ES KEINE“ “BESONDEREN UORKOMMN 
ISSE,“ 

4525 LET H=INT (RND*100)+1 


3600 FOR A=1 TO 7 

8605 PRINT AT 3 . A “ M ISS IONBGESCH 
EITERT“ 

8610 PRINT RT 8 . H-1: 

3620 NEXT A 

8650 PRINT AT 20.12NOCHMALT“ 
8660 INPUT A$ 

8665 CLS 

8670 IF A$=“J“ THEN RUN 

8680 IF A$<>“N“ THEN GOTO 8660 

8690 STOP 

9000 SAUE “DSB“ 

9010 RUN 


tebensspiel 


Beschreibung des Programmes (4000 
Bytes) 

Wie sich die Bevölkerung eines 
Landes entwickelt, die Sie sich 
vorstellen, läßt sich mit diesem 


Programm simulieren. Dazu brauchen 
Sie nach dem Eintippen dieses Pro¬ 
grammes lediglich die Fragen, die 
Ihnen der Computer stellt, zu be¬ 
antworten. Alexander Henkel 


1 REM M 

GE ZEICHEN 

INDESTENS 1467 BELIEBI 

MULIERT DIE 

BEUQELKERUNG 

E SELBST BE- 

E NT W IC K L U N G E I E R 

NACH REGELN.DIE SI 

2 REM 

LIFE 

WON A,HENKEL 

FÜER CHIP-SPECIAL 

S0 PRINT “ 

S PROGRAMM- 

WEI FRAGEN 

90 PRINT “ 

WIEUIEL 

INDIUIDUUM 

STIMMEN,ZU ANFANG DE 

L A U F S U ERDE N IH N EN Z 

GESTELLT:“ 

1, GEBEN SIE EIN.BEI 

NACHBARN EIN NEUES 

GEBOREN WERDEN SOLL 

60 PRINT 

--LEBENSSPIE 

- SOLL DIES 

Z,B, BEI 2 UND BEI 

L- 


3 NACHBARN 


70 PRINT 

..“DIESES PROGRAMM SI 

100 PRINT “ 

DER FALL SEIN.50 TI 
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SimulotHoiisspiel 


PPEN SIE ZU- ERST RUF <•••■2'"' UND 

DRNN RUF.3"" (ODER UMGEKEHRT 

! .MIT N/L KOMMT DIE NRECHSTE FR 
RGE . " 

110 PRINT "2. HIER GEBEN SIE EI 
N,BEI UIE- UIEL NRCHBRRN EIN B 
ESTEHENDES INDIUIDUUM UEBERLEB 
EN SOLL.UER- FRHREN SIE UIE UNTE 
R 13 . '• 

120 PRINT ,,"TRSTE DRUECKEN" 

130 IF INKEV$ = "'‘ THEN GOTO 130 

14.0 CLS 

150 PRINT "-NRCH DER BERNTUORTU 
NG DER FRR- GEN BEFINDEN SIE SIC 
H IM EDITIERMODUS.HIER EINE RUFL 
ISTUNG DER ERLRUBTEN TRSTEN MIT 

FUNKTION:" 

160 PRINT .5" "-'“'S" " : CUR50RST 

EUERTRSTEN" 

170 PRINT .D"":DRUCKEN EINES 

INDIUIDUUMS" 

180 PRINT .L"":LOESCHEN EINES 

INDIUIDUUMS" 

190 PRINT """S"":BERECHNET NREC 
HSTE POPUL.R- TION UND KEHRT I 

N DEN EDITIER- MODUS ZURUECK." 

200 PRINT .N.-L" " ; BERECHNUNG D 

ER F O L G E N D E N P O P U L RTIO N E N O H N 

E U NT E R B R E- C H U N G.R U E C K K EHR 

IN DEN EDITIER MODUS MIT ■•■■2"". 


210 PRINT .C"":SPIELFLRECHE L 


OESCHEN" 

220 PRINT .N"":NEUER PROGRRMM 

:5TRRT" 

230 PRINT .BRERK"":RUECKKEHR 

INS BRSIC.NUR IM EDITIERMODUS 
MOEGLICH.” 


240 

PRINT 

.. .. "Tfl 

250 

IF INKEY $ 

= “ 

260 

RRND 1 

IJSR 

16 

9900 

PR INT 

The 

1 

9901 

PRINT 

TRB 

1 

9902 

PRINT 

TRB 

1 

9903 

PRINT 

TRB 

1 

9904 

PRINT 

TRB 

9 

9905 

PRINT 

TRB 

6 ' 

99 06 

PR INT 

TRB 

7 

■ •• 

9907 

PRINT 

TRB 

6 

■ •• 

9906 

PRINT 

TRB 

5 

■ M 

9909 

PRINT 

TRE 

4. 

■ •• 

9910 

PRINT 

TRB 



STE DRUECKEN" 


" THEN GOTO 250 
514- 



9911 PRINT TRE 2; " 

■ 

9912 PRINT TRB 1; " 

i >. 

9913 PRINT TRB G" 

■ " 

9914- PRINT TRB 0; ” 
9915 PRINT RT 0,0.:" 



99 IS PRINT " ISINCLRIR ZXSlI " 

9917 PRINT " 

9918 PRINT RT 12,17.;”R. HENKEL" 

9920 PRINT RT 14-, 17 ; " PRRESENT lER 
T ; " 

9921 FOR 1=16 TO 20 

9922 PRINT RT 1,0; "I 


9923 

NEXT I 

' 

9924 

PRINT RT 16., 

12.. “laHBO"; RT 

19 .. 



9925 

PRINT RT 21.. 

0.; “■■BITTE EIN 

E TASTE DRUECKEN! 


9926 

CLERR 


9927 

SRUE “S“ 


992S 

IF INKEV$=““ 

THEN GOTO 9926 

9929 

CLS 


99 3 0 

RUN 


9940 

REM ■■■■■ 





994-1 SC ROLL 

9 9 4- 2 P R I NT " R D R E S S E : B YT ES: " 

y y 4- 3 u R u L., L.. 

994-4 PRINT - -“ 

9945 SCROLL 

9946 PRINT 
994 7 -5 GROLL 

9946 FOR 2=16514 TO 17163 

9949 PRINT Z 

9950 INPUT BYTE 

9951 POKE Z.BYTE 

9955 PRINT TRB i3;PEEK Z 

9953 5CR0LL 

9954 NEXT Z 

9955 SCROLL 
9 956 S C R O L L 

9957 PRINT “DIE MC-EINLESE-ROUTI 
NE KhNN NUN“ 

9958 SCROLL 

9959 PRINT “GELOESCHT UERDEN.“ 

9960 SCROLL 
9 9 6 1 S C R O L L 

9962 PRINT “UOR DEM ERSTEN SThRT 
SOLLTE DhS“ 
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Simulationsspiel 


9963 S C R Ü L L 

9964 PRINT ‘’PRQGRhMM JEDOCH H 
SPEICHERT‘‘ 

9965 S C R O L L 


9966 PRINT “WERDEN. 


L-E 


E 


u u uuuuu uu u 
O Ü O 0 Ci 


U U U Ij 

lü 0 O ü o 

ü ü ÜO 00üü 

O O O O O O 

O O O 0 o 

O Ü O O 0 o o 


.1 IJ I- 
) 0 0 Ci 

j o 

j o o 

J o o 

o o 


|u O O u u u u 

O 0 

|Ü0 O 

lü O 0 o o 

|ü 00 00 o o 

QOOOO O O O 

O Ü o 

Ü 0 O Ü 

Ü o o o o o 
0 ü o o 

O 00 0000 o 

ü 0 O u 

O O O O O 0 ü 0 O ü ü 


u 


u u 
0 oo 

0 IJ OIJ 

i J IJ 0 O O Ci 

0000 
0 

0 o 

o 
o 

! J ü o 
IJ 


ADRESSE BYTES 


16514 

33 

244 

66 

6 

18 

16519 

54 

0 

35 

16 

251 

16524 

205 

0 

66 

237 

91 

16529 

12 

64 

33 

94 

66 

16534 

6 

56 

205 

17 

66 

16539 

33 

244 

66 

34 

6 

16544 

67 

235 

35 

34 

8 

16549 

67 

54 

128 

33 

198 

16554 

66 

34 

242 

66 

205 

16559 

29 

66 

42 

12 

64 

16564 

17 

99 

0 

25 

235 

16569 

33 

150 

66 

6 

48 

16574 

205 

17 

66 

33 

253 

16579 

66 

34 

6 

67 

235 

16584 

35 

34 

8 

67 

54 

16589 

128 

205 

29 

66 

205 

16594 

0 

66 

62 

128 

17 

16599 

30 

0 

42 

12 

64 

16604 

6 

31 

35 

119 

16 

16609 

252 

6 

22 

35 

35 

16614 

35 

119 

25 

119 

16 

16619 

248 

6 

29 

43 

119 

16624 

16 

252 

42 

12 

64 

16629 

35 

17 

37 

67 

1 

16634 

24 

3 

237 

176 

1 

16639 

158 

1 

237 

66 

34 

16644 

10 

67 

42 

12 

64 

16649 

35 

54 

42 

42 

10 

16654 

67 

126 

198 

128 

119 

16659 

33 

0 

208 

1 

1 

16664 

0 

9 

48 

253 

33 

16669 

219 

66 

34 

242 

66 


16674 

205 

59 

66 

62 

5 

16679 

185 

218 

83 

65 

42 

16684 

10 

67 

126 

198 

128 

16689 

119 

62 

3 

185 

218 

16694 

114 

65 

22 

0 

89 

16699 

33 

12 

67 

25 

25 

16704 

94 

35 

86 

42 

10 

16709 

67 

25 

62 

128 

190 

16714 

202 

6 

65 

34 

10 

16719 

67 

195 

6 

65 

62 

16724 

10 

185 

202 

130 

64 

16729 

61 

185 

202 

209 

64 

16734 

61 

185 

200 

42 

10 

16739 

67 

61 

185 

40 

5 

16744 

54 

52 

195 

6 

65 

16749 

54 

0 

195 

6 

65 

16754 

6 

0 

62 

5 

185 

16759 

40 

2 

6 

1 

120 

16764 

50 

20 

67 

42 

12 

16769 

64 

35 

54 

128 

17 

16774 

0 

0 

42 

12 

64 

16779 

35 

25 

126 

254 

118 

16784 

210 

214 

65 

213 

175 

16789 

1 

0 

8 

229 

33 

16794 

21 

67 

22 

0 

88 

16799 

25 

25 

43 

86 

43 

16804 

94 

225 

229 

25 

245 

16809 

126 

254 

52 

32 

4 

16814 

241 

60 

24 

1 

241 

16819 

225 

16 

226 

209 

6 

16824 

0 

79 

126 

33 

244 

16829 

66 

254 

52 

32 

3 

16834 

33 

253 

66 

9 

126 

16839 

33 

37 

67 

25 

254 

16844 

0 

40 

5 

54 

52 

16849 

195 

214 

65 

54 

0 

16854 

19 

33 

24 

3 

175 

16859 

237 

82 

194 

136 

65 

16864 

42 

12 

64 

35 

58 

16869 

37 

64 

254 

254 

202 

16874 

6 

65 

235 

33 

37 

16879 

67 

1 

24 

3 

237 

16884 

176 

58 

20 

67 

254 

16889 

1 

202 

6 

65 

195 

16894 

133 

65 

42 

12 

64 

16899 

14 

24 

6 

32 

35 

16904 

54 

0 

16 

251 

35 

16909 

13 

32 

245 

201 

19 

16914 

26 

254 

118 

40 

250 

16919 

126 

18 

35 

16 

245 

16924 

201 

58 

37 

64 

254 

16929 

255 

32 

249 

205 

59 

16934 

66 

62 

9 

185 

200 

16939 

121 

198 

156 

42 

8 

16944 

67 

119 

42 

6 

67 

16949 

9 

54 

1 

195 

29 

16954 

66 

62 

255 

237 

91 
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16959 

37 

64 

187 

40 

249 

16964 

42 

242 

66 

70 

14 

16969 

0 

35 

126 

35 

187 

16974 

32 

4 

126 

186 

40 

16979 

7 

35 

12 

16 

243 

169B4 

195 

59 

66 

6 

0 

16989 

201 

38 

51 

63 

38 

16994 

45 

49 

0 

51 

38 

16999 

40 

45 

39 

38 

55 

17004 

51 

26 

39 

42 

46 

17009 

0 

41 

42 

51 

42 

17014 

51 

0 

42 

46 

51 

17019 

42 

0 

0 

51 

42 

17024 

58 

42 

0 

63 

42 

17029 

49 

49 

42 

0 

44 

17034 

42 

39 

52 

55 

42 

17039 

51 

0 

60 

46 

55 

17044 

41 

14 

38 

51 

63 

17049 

38 

45 

49 

0 

51 

17054 

38 

40 

45 

39 

38 

17059 

55 

51 

26 

39 

42 

17064 

46 

0 

41 

42 

51 

17069 

42 

51 

0 

42 

46 


17074 

51 

42 

0 

0 

63 

17079 

42 

49 

49 

42 

0 

17084 

58 

42 

39 

42 

55 

17089 

49 

42 

39 

57 

14 

17094 

10 

239 

253 

247 

253 

17099 

247 

251 

247 

247 

247 

17104 

239 

247 

223 

239 

223 

17109 

239 

239 

239 

247 

191 

17114 

253 

11 

247 

223 

239 

17119 

223 

239 

239 

239 

247 

17124 

253 

251 

191 

253 

253 

17129 

247 

191 

251 

127 

253 

17134 

254 

239 

127 

239 

219 

17139 

66 

0 

0 

1 

1 

17144 

0 

0 

0 

0 

0 

17149 

0 

0 

0 

1 

1 

17154 

0 

0 

0 

0 

253 

17159 

66 

71 

76 

45 

77 

17164 

255 

255 

33 

0 

223 

17169 

255 

1 

0 

0 

222 

17174 

255 

223 

255 

224 

255 

17179 

1 

0 

34 

0 

33 

17184 

0 

32 

0 

255 

255 


Knobehahl 


Beschreibung des Programmes (2160 
Bytes) 

Ihr Partner, der Computer, hat sich 
eine Zahl ausgedacht, die zwischen 

1 und 100 
diese nach 
gewählte 

liegt. Versuchen Sie, 
dem Zufallsprinzip aus- 
Zahl herauszufinden. 

Rainer Bartlewski 

1 

REM 

RATESPIEL 

* * 



E D 

IE 

" AT 4 

. 2 ; 

“ ANLE 

ITÜNG 

SEHEN 


2 

REM U 

ON RAINER 

BARTLEUSh 

■■.1 


13 

0 

PRINT 

AT 

7.2, ■’ 

2-- U 

OLLEN : 

SI 


REM ** 

FUER CH 

IIP 

-SPECIAL 



E S 

PIELEN" 







RUN 20 







13 

1 

PRINT 

AT 

IGi , 2 ; 

’■ 0 

00 

0 

y 

SRUE •' 







0" 








10 

REM HERGESTELLT 

AM 27.1a:: 

E;4- 


1 O 

2 

PRINT 

AT 

11.. 2; 

" 00 

0 0 

0 

15 

REM U 

ON : F 

?A IN 

iER 

BARTLUSh 

I 


0“ 








20 

FÜR N = 

0 TO 

21 





13 


PRINT 

AT 

12,2; 

"0 0 

0 0 

0 

30 

PRINT 

AT N . 

. 0.; *■ 

■ " 

; AT N , 3 1 

; 

1 

0“ 








*• 








13 

i4 

PRINT 

AT 

13.2, 

0 

0 0 

0 

40 

NEXT N 







0“ 








50 

FÜR N = 

0 TO 

3 1 





IS 

i 

PR INT 

AT 

14- ,2; 

0 

00 

0 

60 

PRINT 

hT 0 . 

N, ■' 

9" 

; AT 21 : N 

" 

9 

0“ 
















140 

IF INh 

:EY$ = '‘ 1” 

THEN 

GOTO 1 

70 

70 

NEXT N 

1 






15 

:0 

IF INH 

:ey$ = '‘2" 

THEN 

GOTO 5 

00 

80 

FÜR N = 

1 TO 

20 





16 

.0 

I^UTU 140 





90 

PR INT 

AT N. 

. 1, '• 





170 

FÜR Nr 

= 1 TO 20 












16 

;0 

PRINT 

AT 

►. ! -1 ■ • 

1 H .1 J. t 




100 

NEXT N 

1 










•• 




120 

PR INT 

AT 2. 

2 : 

1- 

- UOLLEN 

s* 

I 

-1 i~ 

o. = 

;!0 

NEXT h 

\ 
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Sirategiespiel 


200 PRINT RT 2.2, -gBOlKIEliHilB] 
S” 

210 PRINT RT 5,. 2.; ''ICH ERRECHNE 
MIR EINE 2IJFRLLS’'.; RT 7.,2.;"ZRHL 2 
UIuHEN 0 IJ. 100",;fiT 9., 2; "DIE DU 
ERRRTEN MUS 5 T" 

220 PRINT RT 11 2 " GEBE. S IE EIN 
U N D D R U E C K E N / L " , RT 13 2 ' IC H U 

UENCHE DIR UIEL GLUECK" 

230 PRINT RT 20,2" DRUECKE TRST 
E NULL” 

24-0 IF INKEY $ = "0" TH EN GOTO SO 

250 GOTO 24-0 

500 FOR N =1 TO 20 

510 PRINT RT N., 1 .:" 

520 NEXT N 

530 LET R = 1NT iRND-sggi +1 

531 IF R >100 THEN GOTO 530 
54.0 LET 5=0 

545 LET 5=S-H 

550 PRINT RT 2,2"UERSUCH NR . ■ " 
, S 

560 INPUT E 

565 PRINT RT 5..2.;B:" URR " 

570 IF B=:R'tHEN GOTO 700 
5S0 IF E::R THEN PRINT RT 5,Q;”Z 
U KLEIN" 

590 IF B>R THEN PRINT RT 5,9;"2 
U GROSS." 

600 GOTO 545 
700 FOR N=1 TO 20 


710 

PRINT RT 

N , 1 , " 

7 irl0 

NEXT N 


730 

PRINT RT 

S .. 2 ■■ RICHTIG , DIE 

ZihHL 

Uhr : : h 


740 

PRINT RT 

4-,. 2,”SIE I-IRBEN es 

IN".:hT 6,2,3, 

U E R S U CHEN GE S C fi F T 

760 

PRINT RT 

2 0,2 , •' N 0 C H E IM R L U 

/N“ 

770 

IF INKEY 

$ = THEN GOTO S 0 

780 

IF INKEY 

$r‘’N'’ THEN GOTO 300 

790 

GOTO 770 


800 

FOR N-1 • 

TG 20 

S 10 

PRINT RT 

N, 1 ; ■’ 

820 

NEXT N 


830 

F 0 R N - i 

TD 130 

840 

PRINT RT 

10 8 ; " RUF U lEDERSE 

HEN" 

845 

PRINT RT 

10 .. 3"["lajiBBüireaaaas 

SliQ!" 

5 0 

NEXT N 


c: 6 0 

CL5 


8 70 

PRINT RT 

5,2; "1 -POGRRMM” 

880 

PRINT RT 

10,2; "2-POORRt-IM 

LOE3< 

IHEN" 


890 

ir INKEY 

$="1" THEN GOTO 920 

900 

IF INKEY 

$="2" THEN STOP 

910 

9ÜTü 890 


y y 0 

C!_5 


930 

LIST 



Gomoku 


Beschreibung des Programmes (12940 
Bytes) 

Dieses Spiel gegen den ZX81 mit 
einem lOxlO-Brett, auf dem jeder 
versucht, mit seinen Steinen als 
erster eine Fünferreihe zu bilden, 
wurde vom Home-Computer-Magazin HC 
mit dem HC-Diplom ausgezeichnet. 
Die Fünferreihe, die zum Gewinn 
führt, kann waagerecht, senkrecht 
oder diagonal liegen. Die Steine 
des Spielers sind mit X darge¬ 
stellt, die des Rechners mit 0. 

ZUM SPIELABLAUF; 

Nach dem Laden des Programmes er¬ 
scheint auf dem Bildschirm die 
Frage des Rechners, ob er gut spie¬ 
len soll, die mit J(ja) oder 
N(nein) zu beantworten ist. Danach 


erscheinen auf dem Bildschirm die 
gewählte Spielstärke, das Spielfeld 
und die Aufforderung des Rechners 
an den Spieler, seinen Zug einzuge¬ 
ben ( zuerst der Buchstabe und ,dann 
die Zahl). Nachdem der Spieler 
seinen Zug eingegeben hat, berech¬ 
net der Rechner seinen Zug und 
zeigt diesen zusammen mit dem 
Spielfeld auf dem Bildschirm an. 
Wenn der Spieler einen Punkt beset¬ 
zen will, der schon besetzt ist, 
dann springt der Rechner automa¬ 
tisch zur Eingabe-Routine zurück. 
Man kann eine Partie jederzeit 
abbrechen, indem man statt eines 
Zuges einen Buchstaben außer A bis 
J eingibt (der Rechner bewertet 
diese Partie dann als "unentschie- 
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Stralegiespiel 


den"). Nach dem Ende des Spieles 
wird der Spieler gefragt, ob er 
noch mal spielen will. Verneint er 
diese Frage, so stoppt das Programm 
und muß eventuell mit RUN wieder 
neu gestartet werde. Da der Rechner 
bei der String-Verarbeitung schnel¬ 
ler rechnet, wird die Stellung als 
String ( und nicht numerisch) in 
dem Stringarray A$ (10, 10) gespei¬ 
chert. Wenn der Spieler seinen Zug 


eingegeben hat, untersucht der 
Rechner seinen letzten Angriffszug 
und seinen letzten Verteidigungszug 
und dann den Zug des Spielers, um 
herauszufinden, welcher Zug für ihn 
am günstigsten ist. Die Rechenzeit 
beträgt bei der besseren Spielstufe 
im Durchschnitt 50 Selcunden, bei 
der schlechteren 30 Selcunden, kann 
aber in wenigen Fällen bis zu 110 
Sekunden betragen. Heinz Scsibrany 


MULL ICH GUT SPIELEN (.J/N;i ? 


01234.56789 

E 

Fl 
G 

Hl 
1 

J| 


iWK 


BITTE GEBEN SIE IHREN ZUG EIN. 


10 


£0 

MM” 

21 

mm*» 


4” 




Y” 


30 

31 


33 

34- 

35 



40 

4-1 

4-2 


REM GOMOKU 


UON H.SCSIBRRNY 


F U E R C HIP P E CIH L 


PRINT 

ThB 

9:"GOMOKU PROGRR 

PRINT 

TRB 


PRINT 



PRINT 

TRB 

10.; ”COPYRIGHT 19S 

PRINT 

.. .. 


PRINT 

TRB 

15;”BY” 

PRINT 

.. 


PRINT 

TRB 

9.; “HEINZ 5C5IBRRN 


DIM U$(14,5:i 
DIM 0(6) 

LET XU=0 
LET YU==0 
LET NR=0 
DIM M$ (10, 10:1 

LET XL 1=0 

LET VL1=0 
LET 55=1 
piM X(4.i 
DIM E(6:i 

LET U$ 1 : 1 : 1 =:” ” 

LET U$ 1 : 2 : 1 =”* ***” 


43 

LET 

U$ (3) = " *** •* " 

44 

LET 

Uä (4) 

45 

LET 

U$ (S) =" •*•*** " 

46 

LET 

U $ (6 ) = " * * * « " 

47 

LET 

(7) =“ 

46 

LET 

U$ (S:» =” 000 ” 

49 

LET 

(9) =”0 000 ” 

50 

DIM 

R$ (10,10:• 

51 

LET 

u $ (10 :i = ” 000 o” 

52 

LET 

(11) =”00 00” 

53 

LET 

Ul$ (12) =”0000 ” 

54 

LET 

U$ ( 13) =”00000” 

CT CT 

LET 

( 14) =” 0000 ” 

56 

DIM 

0 $ (4 6 ) 

57 

LET 

0 $ »1) =” * ** ” 

53 

LET 

0$ (2) =” ** * ” 

59 

LET 

0$(3)=” 0 00 ” 

60 

LET 

0$ (4) =” 00 0 ” 

62 

DIM 

Y 1 :4) 

63 

PRINT ”” 

65 

LET 

u = 0 

70 

FOR 

H=1 TO 10 

“7 0 

IF 

H<>2-itINT i:H.-2) THEN LET 

i (H) 

= 1 

■ ■■■■" 

-7 C" 

IF 

H=2*INT (H/2.1 THEN LET M 

:h) = 

= ”■ 1 


“7 -7 

NEXT H 

S0 

LET 

U=0 

81 

LET 

N = 1 

82 

PRINT '‘SOLL ICH GUT SPIELEN 

: J/N) 7” 


83 

PRINT ”” 

84 

IF 

INKEY$="N" THEN GOTO 87 

85 

IF 

INKEYS<>"J" THEN GOTO 84 


36 LET 55=0 _ 

87 IF 55 THEN PRINT 


SS 

S9 


IF NOT 
PRINT 


55 THEN PRINT 


5PI 


y 0 i C R u L L 
91 5CRÜLL 


y 2 -5 C R 0 L L 


93 5GROLL 
94 . SCROLL 
95 5CR0LL 


"SOI'* J 
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Strategiespiel 


96 5CRÜLL 

97 SCROLL 

9 3 G O 5 U 6 6000 
99 LET N=N-1 

100 PRINT RT 17 .. 0 : '-BITTE GEBEN 
SIE IHREN ZUG EIN." 

101 INPÜT F$ 

102 LET ST2n:0 

103 LET S2=0 

104 LET GU=0 
106 LET N=N+1 

106 LET 5T1==0 

107 DIM C(3) 

103 LET GF=0 
109 DIM L(3:» 

120 LET X-CODE F$-37 
130 IF X>10 THEN GOTO 7499 
140 LET Y=UHL F$f2)+1 
146 LET XHL=:0 

149 LET YHL=0 

150 IF R$i:X,Y}<>" " THEN GOTO 9 

9 

152 LET XP2=XU 

153 LET YP2=YU 
155 LET T1=:0 
157 LET S3=0 

159 LET 56=0 

160 LET J=23 
170 GÜSUB 7700 
175 FhST 

177 LET T=1 
173 LET YU=Y 

179 LET XU=X 

180 IF N=1 THEN GOTO 3045 
135 GOSUB 3500 

133 LET X=XL 
139 LET Y=YL 
190 REM 

192 IF NR=190 AND 5T1 THEN GOTO 
375 

195 LET NU=190 
197 LET XD=0 

193 LET YD=1 
199 LET XH=X 
204 FÜR H=1 TO 6 

206 IF TI THEN GOSUB 3000 
203 IF H>6 THEN GOTO 290 

209 LET F$ = ''" 

210 IF H<6 THEN LET F$=H$(X,H+5 

) 

212 LET YH=H 

213 LET B$=R$(X,H TO H+4) 

214 FOR J=H TO H+4 

215 IF ( R $ (X U) = " + " RND T ) OR ( 
R$(X,j;i="0" RND NOT T) THEN GOTO 

275 

217 NEXT J 


213 

IF E$ = '^ " THEN GOTO 

272 

220 

GOSUB 5000 


222 

IF S1 RND NOT GF THEN G 

UTO 

3300 



225 

IF ST2 THEN GOTO 2000 


230 

IF NOT GF THEN GOTO 230 


240 

LET Y=G 


270 

GOT 0 2000 


272 

LET J=J-4 


275 

LET H=J 


230 

375 

NEXT H 

REH m «s>w5 


376 

IF NR=375 RND ST 1 THEN 

GOT 0 

6 20 



373 

LET NU=375 


3 79 

LET XD=1 


360 

LET YD=0 


381 

LET YH=Y 


3 3 4 

FOR H=1 TO 6 


385 

LET F$="" 


3 '■-! 6 

IF TI THEN GOSUB 3000 


337 

IF H>6 THEN GOTO 500 


1 

390 

IF H<6 THEN LET F$=R$(H-f5/Y 

LET B$="" 


400 

FOR .J=H TO H+4 


410 

LET B$=B$+R$CJ,Y) 


415 

IF !:R$ ( J , YÜ =" *" RND T) 

0 R ( 

R $ j; ü , 

Y) = "n‘- RND NOT T:i THEN 

GOT 0 

435 



420 

NEXT J 


422 

IF B$=" " THEN GOTO 

432 

423 

LET XH=H 


4 30 

GOSUB 5000 


4 32 

IF S1 RND NOT GF THEN G 

OT 0 

3300 



4 35 

IF ST2 THEN GOTO 2000 


440 

IF NOT GF THEN GOTO 490 


450 

LET X=G 


430 

GOTO 2000 


482 

LET J=J-4 


435 

LET H=J 


490 

NEXT H 


620 

REM 


6*22 

IE r-4R=6 20 RND STJ. THEN 

G OT 0 

1200 


625 

LET NU=620 


627 

LET XD=1 


6 2 3 

LET YD=1 


630 

IF Y>=X THEN GOTO 900 


6 3 5 

IF Y-X+10<5 THEN GOTO 1 

200 

6 3 6 

LET ED=Y-X+6 


640 

FOR H=1 TO ED 


641 

LET F$="" 


642 

IF TI THEN GOSUB 3000 


6 47 

IF H>ED THEN GOTO 750 


643 

IF H<ED THEN LET F$=R$( 

X - Y + 
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Strategiespiel 


H+5,H+5) 

650 LET = 

660 FOR •J = H TO H+4. 

670 LET B $ =B * +H $(X-Y +J , U) 

675 IF (R $ (X -Y + J , ü ;i = '* * •' RND T ) 

O R (fl $ (X - Y + J , J) = ■ ■ O • ■ fl N D r-4 OT T ') T 
HEN GOTO 74-5 

680 NEXT J 

681 IF B$ = “ " THEN GOTO 74-2 

683 LET XH=X~Y+H 

686 LET YH=H 
6 90 G Ü 5 U 5 5000 

692 IF S1 hND not GF THEN GOTO 
3800 

695 IF ST2 THEN GOTO 2000 

700 IF NOT GF THEN GOTO 750 

710 LET X=G+;:<-Y 

720 LET Y=G 

74.0 GOTO 2000 

74-2 LET ü=J-4. 

74-5 LET H=J 
750 NEXT H 
760 GOTO 1200 

900 IF X*“Y+10<5 THEN GOTO 1200 

904 LET ED=:X*Y+6 

905 FÜR H=1 TO ED 

906 IF TI THEN G05UB SOOO 

90S IF H>ED THEN GOTO 1020 

909 LET F$ = ‘“* 

910 LET = 

915 IF H::ED THEN LET F$=H$(H+5, 

Y-X+H+5) 

920 FÜR J=H TO H+4 

930 LET B $ =B $ +H $ (J , Y ~X + J) 

935 IF ( J , Y-X+ü) ='• *'■ fiND T) 

OR (H $ (J , Y -“X + J ;« - O HND NOT T ) T 
HEN GOTO 1015 

940 NEXT J 

941 IF B$ = “ THEN GOTO 101 

«£ 

943 LET XH=H 
946 L ET H " Y - X + H 
950 G05ÜB 5000 

952 IF 51 HND NOT GF THEN GOTO 
3500 

955 IF 5T2 THEN GOTO 2000 
960 IF NOT GF THEN GOTO 1020 
950 LET Y=Y-X+G 
990 LET X=G 
1010 GOTO 2000 
1012 LET 0=0-4 
1015 LET H=0 
1020 NEXT H 

1200 IF NR=1200 HND STl THEN GOT 
O 4000 

1202 LET NU=1200 
1204 LET XD=1 


1205 LET YD=-1 

1207 IF X+Y>11 THEN GOTO 1500 
1210 IF X+Y-l<5 AND STl THEN GOT 
O 4-000 

1213 IF X+Y-l<5 THEN GOTO 3000 
1215 LET. ED=X+Y-5 

1220 FOR H=1 TO ED 

1221 LET F$="" 

1222 IF TI THEN GOSUB 8000 

1227 IF H>ED THEN GOTO 134-2 

1228 IF HCED THEN LET F$=fl$(H+5, 
X+Y-H-5) 

1230 LET B$ = '"’ 

124-0 FOR J=H TO H+4 

1250 LET B $ =B $ +fl $ (■_!, X + Y -ü) 

1255 IF (fl$ (J,X+Y-.J:i =" + ■' AND T) 


ÜR ( R $ (0,X +Y-0 ) =' 

‘0“ HND NOT T) T 

HEN ( 

30TO 1335 


1260 

NEXT 0 


1261 

IF B$=” 

“ THEN GOTO 133 

7 



1263 

LET XH=H 


1266 

LET YH=X+V“I 

H 

1270 

GOSUB 5000 


1272 

IF 51 HND NOT GF THEN GOTO 

3500 



1275 

IF 5T2 THEN 

GOTO 2000 

1250 

IF NOT GF THEN GOTO 134© 

1300 

LET Y=X+Y-G 


1310 

LET X=G 


1335 

GOTO 2000 


13 3 7 

LET J=J-4 


1335 

LET H=J 


1340 

NEXT H 


1342 

IF STl THEN 

GOTO 4000 

1490 

GOTO 3000 


1500 

IF 21-X-Y<5 

HND STl THEN GO 

TO 4000 


1505 

IF 21-X-Y<5 

THEN GOTO 3000 

1506 

LET H U = X +V — 

10 

1510 

FOR H=RG TO 

6 

1512 

IF TI THEN 

GOSUB 5000 

1513 

LET F$ = '‘’‘ 


1515 

IF H>6 THEN 

GOTO 1645 

1519 

IF H<6 THEN 

LET F4=H$(H+5.. X 

+ Y -H 

-5 ) 


1520 

LET B$ = ‘"' 



1530 FOR ■J=H TO H+4 

1540 LET B$=:B$+fl$ i:J..X+Y-.J) 

1545 IF (fl $ (J LX +Y - J} =•'+•■ AND T) 

O R (fl $ (J X + Y - J j = ■' O " fl N D N OT T) T 

HEN GOTO 1635 

1550 NEXT J 

1551 IF B$=" “ THEN GOTO 163 

0 

1553 LET XH=H 

1556 LET YH = X + Y'' -H 
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1560 GOSUB 5000 

1562 IF S1 RND NOT GF THEN GOTO 
3S00 

1565 IF SXa THEN GOTO 2000 

1570 IF NOT GF THEN GOTO 1640 

1550 LET Y=X+Y-G 

1590 LET X=G 

1620 GOTO 2000 

1650 LET ü=:J-4 

1635 LET H=J 

1640 NEXT H 

1645 IF 5T1 THEN GOTO 4000 
1790 GOTO 3000 
2000 

2001 IF NOT 5T2 THEN GOTO 2010 

2002 LET 56=1 

2006 LET XL1=X 

2007 LET YL1:=Y 

2009 GOTO 4001 

2010 CL5 

2020 PRINT "ICH SETZE EINEN 5TEI 
N HUF DEN PUNKT :'*,CHR$ (X+37) 

. Y -1 

2030 5L0U 
2040 LET J=52 
2050 G0SU6 7700 
2070 GOSUEl 6000 

2072 IF GUI HND T THEN GOTO 7506 

2075 IF T THEN LET XL=X 

2076 IF T THEN LET YL=Y 

2077 IF NOT T THEN LET XL1=:X 
2075 IF NOT T THEN LET YL1=y 
2050 IF N=50 THEN GOTO 7499 
2090 IF NOT T RND 52>1 THEN LET 
XL=INT XHL 

2100 IF NOT T RND 52>1 THEN LET 
YL=YHL 

2150 GOSUB 5500 
2200 GOTO 100 
2500 LET X=XL1 
2510 LET Y:=YL1 
2550 GOTO 2010 

3000 

3001 IF NOT T THEN GOTO 3015 

3002 IF 53 THEN GOTO 3010 

3003 LET 53=1 

3004 IF NOT XLl THEN GOTO 3010 

3005 LET X=XL1 

3006 LET Y=YL1 
3003 GOTO 195 

3010 LET X=XU 

3011 LET NR=0 

3012 LET Y=YU 

3013 LET T=0 

3014 GOTO 195 

3015 IF 56 RND 52<3 THEN GOTO 25 
00 


3015 IF U RND 52 <2 THEN GOTO 370 
0 

3019 IF Cfi:« RND 52 <2 RND N<4 TH 
EN GOTO 3600 

3020 IF 52>=1 THEN GOTO 3630 
3022 GOTO 3500 

3030 LET X=XL 
3035 LET Y=:YL 
3040 LET T=1 

3045 IF NOT INT (RND*2} THEN GOT 
O 3070 

3050 IF X<10 THEN LET X=:X + 1 

3060 GOTO 3050 

3070 IF X>1 THEN LET X=X-1 

3050 IF Y>1 THEN LET Y=:INT iRND* 

2 ) * ( - 1) + Y 

3090 IF Y<10 THEN LET Y=INT (RND 
*2) +Y 

3100 IF R$(X..Y)=’' ” THEN GOTO 20 

10 

3110 GOTO 3045 

3500 LET XD=:5GN (XU-XP2ji 

3510 LET YD=SGN (YU-YP2j 

3515 IF XD>2 OR YD>2 THEN GOTO 3 

030 

3520 LET X=XP2+XD 
3525 LET Y=YP2+YD 

3530 IF R$ (X .. Yj =“ THEN GOTO 20 
10 

3540 LET X=:X+XD 
3550 LET Y=Y+YD 

3560 IF X<11 RND X>0 RND Y<11 RN 
D Y>0 RND R$i:X/Yj=“ " THEN GOTO 
2010 

3565 GOTO 3030 

3600 LET J=:l 

3601 IF NOT U THEN GOTO 3603 

3602 FOR .J=:l TO U 

3603 LET 1=1 

3605 LET X = INT C (I) 

3607 LET Y=INT („2+100*(C(I)-INT 
Cd))) 

3605 IF 1=1 THEN LET XP=X 
3609 IF 1=1 THEN LET YP=Y 

3611 LET 1=1+1 

3612 IF I>3 THEN GOTO 3617 

3 6 13 IF N OT C d ) THE N G OT‘ O 3 617 
3 6 15 IF X = I NT D ( J ) R N D Y = E ( J ) T H 
EN GOTO 3620 

3616 GOTO 3605 

3617 IF U THEN NEXT J 
3615 LET Y=YP 

3619 LET X=XP 

3620 LET T=0 

3621 IF NOT U THEN GOTO 2010 

3623 LET E(J)=E(U) 

3624 LET DrJ)=:D(U) 
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3627 LET 'J=U-1 
5629 GOTO 2013 
3650 LET T=1 

3633 IF 52=1 THEN GOTO 3660 
3635 LET X=INT XHL 
364.0 LET Y=YHL 

3642 IF 52 <3 THEN LET U=:U-1 

:3650 G ÜT O 2010 

3660 LET X = INT D(U.1 

3670 LET Y=E(U:i 

3630 G OT0 3 642 

3700 LET x=Xi:u:i 

3720 LET Y=:Y(U) 

3750 LET U=U-1 
3760 G OT D 2010 

3800 LET HU=H 

3801 LET NUM=NU 
3803 LET 51=0 
3808 FÜR 5=1 TÜ 3 
3810 LET C 05) =L (5) 

3820 NEXT 5 

3825 IF 55 OR N<3 THEN GOTO- 4001 
3830 FOR 5=1 TO 3 

3840 IF NOT 0(5) THEH GOTO 4000 
3850 LET X=INT C(5) 

3860 LET Y = INT f . 2 + 100 -S- ( C C 5 ) - INT 
C (S) ) ) 

3870 LET 5T1=1 
3890 GOTO 190 

4000 NEXT 5 

4001 LET X=XU 

4002 LET Y=YU 

4003 LET ST1=0 

4004 LET Tl=l 

4005 LET NR=0 
4010 GOTO NUN 


[KOMB INRT IQMENTE5TI 


5002 LET Z=S 

5003 IF NOT T THEN LET Z=1 

5005 LET 5T2=0 

5006 LET 51=0 

5007 LET GU=0 

5008 LET GF=0 

5009 IF NOT 5T1 THEN GOTO 5023 

5012 FOR J=1 TO 5 

5013 IF i:.J) < > •■ *'• OR U=4 THEN G 
OTO 5021 

5014 IF NOT U THEN GOTO 5018 

5015 FOR 1=1 TO U 

5016 IF X(I)=X RND Y(I)=Y THEN G 
OTO 5580 

5017 NEXT I 

5018 LET U=U+i 

5019 LET X (U) =X 

5020 LET Y(U)=Y 

5021 NEXT J 

5022 GOTO 5580 


5023 

LET GF=1 


5024 

IF B$+F$=l.-H 

(Z) +“ ■' THEN GOT 

0 512 

0 


5025 

IF F$+B$=" 

'‘+UI$i:Z) THEN GOT 

0 515 

0 


5026 

LET 2=Z+1 


5027 

IF B$=l.-.l$ (Z) 

THEN GOTO 5190 

5028 

LET Z=Z+1 


5030 

IF B$=U$(Z) 

THEN GOTO 5260 

5035 

LET Z=Z+1 


5040 

IF B$=U$(Z:i 

THEN GOTO 5330 

5045 

LET Z=Z+1 


5050 

IF B® =U.i£ (Z) 

THEN GOTO 5400 

5055 

LET Z=Z+1 


5060 

IF B$<>u$i:z 

) THEN GOTO 5090 

5075 

LET GU=2 


5080 

GOTO 7500 


5090 

LET Z=Z+1 


5095 

IF BS<>UI$(Z 

) OR F$=U$(Z-1.. 1 

;i THEN GOTO 554-0 


5100 

LET G=H 


5105 

LET GU=1 


5110 

RETURN 


5120 

IF T OR 52> 

2 THEN LET GF=0 

5130 

LET G=H+4 


5131 

K i 

IF NOT T OR 

52>2 THEN RETUR 

r ■I 

5134 

LET XHL=XH+ 

4^XD 

5135 

LET YHL=YH+ 

4 D 

5136 

LET 52=3 


5140 

RETURN 


5150 

LET G=H-i-l 


5151 

IF T OR 52> 

2 THEN LET GF=0 

5152 

N 

5154 

IF NOT T OR 

52>2 THEN RETUR 

LET XHL=XH-h 

X D 

5156 

LET YHL=YH+ 

YD 

5157 

LET 52=3 


5160 

RETURN 


5190 

LET G=H+1 


5195 

LET GU[ = 1 


5200 

RETURN 


5260 

LET G=H+3 


5265 

LET GUI = 1 


5270 

RETURN 


5330 

LET G=H+2 


5335 

LET GU=1 


5340 

RETURN 


5400 

LET G=H-h4 


5420 

LET GU=1 


5430 

RETURN 


5480 

IF T OR 52> 

2 THEN LET' GF=0 

5485 

IF b$<>o$i:p 

) THEN GOTO 5510 

5490 

LET G=H+2 



5491 IF NOT T THEN RETURN 
5493 LET XHL=XH+2*XD 
5495 LET YHL=YH+2#YD 
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54-96 

LET 52=3 


5682 

IF B$<>" ** THEN GOTO 57 

5500 

RETURN 


00 


5510 

LET P=P+1 


5663 

LET Lilf =XH+YH/100 

5515 

IF B$<>Q$<P;i THEN GOTO 55 

35 

5685 

LET L C2J =XH+3*XD+ (YH + 3*YD:i / 

5520 

LET G=H+3 


100 


5521 

IF NOT T THEN RETURN 


5690 

IF 5T1 THEN GOTO 5955 

FiF^ 

LET XHL=XH+3^XD 


5692 

GOTO 6500 

5525 

LET YHL=YH+3+YD 


5700 

IF B$<>‘‘ * * " THEN GOTO 57 

5^526 

LET 52=3 


50 


5530 

RETURN 


5710 

LET L ( i:i =XH+YH/100 

5535 

LET GF=0 


5720 

LET L ( 2:1 =XH+XD*2+ CYH+YD*2:* / 

5537 

RETURN 


100 


5540 

LET GF=0 


5730 

LET L (3) =XH+XD^4+ (YH+YD^4:i /• 

5545 

IF 55 OR 52>1 THEN GOTO 5 

56 

100 


0 



5737 

IF 5T1 THEN GOTO 5955 

5549 

IF B$<>” 00 “ THEN GOTO 

55 

5740 

GOTO 6500 

55 



5750 

IF B$<:>"-?r* ^ " THEN GOTO 56 

5550 

LET XHL=XH+3*XD 


00 


5551 

LET YHL=YH+3*YD 


5760 

LET L (1 :i =XH +XD ^2 + (YH +YD *5^.2) / 

5553 

GOTO 6600 


100 


5555 

IF B$<>" 00 " THEN GOTO 

5F1 

5770 

LET L ( 2:1 =:XH+XD^4+ (YH+YD*4) / 

65 



100 


5557 

LET XHL=XH+XD 


5792 

IF STl THEN GOTO 5955 

5556 

LET YHL=YH+YD 


5795 

GOTO 6500 

5563 

GOTO 6600 


5800 

IF B$:::>" * THEN GOTO 58 

5565 

IF 0 0 ” THEN GOTO 

55 

50 


71 



5610 

LET L ( 1 :« =XH +YH / 100 

5566 

LET XHL=XH+2+XD 


5620 

LET L 1 : 2:1 =XH+XD*2+ (YH+YD + 2:i / 

5567 

LET YHL=YH+2^YD 


100 


5570 

G 0 T 0 E» 6 0 0 


5637 

IF STl THEN GOTO 5955 

5571 

IF B$<>’‘000 THEN GOTO 

Fi Fi 

5640 

GOT 0 6500 

“?FI 



5650 

IF B$<>"*** " THEN GOTO 59 

5572 

LET XHL=XH+3^XD 


00 


5573 

LET YHL=YH+3*YD 


5660 

LET L (1) =XH+XD*3+ (YH+YD+3:i / 

5574 

GOTO 6800 


100 


c; -7 er 

IF B$<>‘' 000" THEN GOTO 

FiF 

5870 

LET L ( 2:1 =XH+XD*4+ ( YH+YD + 4:i / 

60 



100 


5576 

LET XHL=XH+XD 


5687 

IF STl THEN GOTO 5955 

crc'“7 “7 

LET YHL=YH+YD 


5690 

G OT 0 6500 

5576 

GOTO 6600 


5900 

IF E$<>" THEN GOTO 59 

5560 

IF T OR 56 OR 52>2 THEN G 

OT 

41 


0 6600 


5910 

LET L ( 1) =XH+YH/100 

5585 

LET L ( 3 : 1=0 


5920 

LET L 1 : 2:1 =XH+XD+ (YH+YCO /100 

5586 

IF B$<;>" ** " THEN GOTO 

56 

5 9 3 7 

IF STl THEN GOTO 5955 

50 



5940 

GOTO 6500 

5590 

LET L ( 1 :> =XH +3 ^XD + (YH +3 rrO ) / 

5941 

IF B$+F$<>" * '■ THEN GOT 

100 



0 5946 

5595 

LET L (2:i =XH+4^XD+ (YH+4*YD 

:i / 

5942 

LET L 1 : 1:1 =XH+XD*2+ (YH+YD^2:i 

100 



100 


5605 

IF 5T1 THEN GOTO 5955 


5943 

LET L ( 2:1 =XH+XD*3+ (YH+YD*3:i / 

5610 

GOTO 6500 


100 


5650 

IF B$<>" ** " THEN GOTO 

56 

5946 

IF STl THEN GOTO 5955 

•n* ^ 



5947 

GOTO 6500 

5655 

LET L (i;i =XH+YH/100 


5948 

IF B$<>"+ •' THEN GOTO 66 

5660 

LET L ( 2:1 =XH+XD+ (YH+YD) /100 

00 


5675 

IF 5T1 THEN GOTO 5955 


5949 

LET L (i:i =XH+XD+ (YH+YD) /100 

5680 

GOTO 6500 


5950 

LET L ( 2 :i =XH +4 *XD + (YH +4 -^YD :i / 
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100 


7515 

IF GUI =2 THEN PRINT 

“SIE HRB 

5953 

IF STl THEN GOTO 5955 

EN SEHR GUT GESPIELT.” 


5954. 

GOTO 6500 

7520 

IF GU=1 THEN PRINT 

‘■Ph5S£N 

5955 

LET NR=NU 

SIE BESSER RUF." 


595S 

FÜR J=1 TO 3 

7525 

IF GUI = 3 THEN PRINT 


5960 

IF NOT L(J) THEN GOTO 5960 



5965 

IF THEN GOTO 596 

“7 er .“i “7 

PRINT 


0 


7530 

PRINT "SPIELEN SIE 

NOCH EIN 

5970 

LET 5T2=1 

SPIEL MIT MIR i:J/N) T " 


5975 

RETURN 

7540 

IF INKEY$=“J“ THEN 

G OT 0 757 

5900 

NEXT J 

0 



5990 

GOTO 6600 

7550 

IF INKEY $ < > ’‘N’' THEN 

GOTO 75 

6000 

PRINT RT 4,10; 0125456709‘’ 

40 



6020 

FÜR H=1 TO 10 

7560 

5CR0LL 


6030 

PRINT TflB 10.;CHR$ (H437:i.:N$ 

7561 

PRINT " •’ 


(H) 


7562 

5GROLL 


6040 

NEXT H 

7563 

PRINT "ICH DRNKE IHNEN FUER 

6050 

RETURN 

DR5 

SPIEL . •' 


6500 

LET 61=1 

7564 

5CR0LL 


6510 

LET NR=NU 

7565 

5CR0LL 


6600 

IF F$ = "'‘ OR STl OR F$ = "#" 0 

7567 

STOP 


R F$: 

= '■0*' THEN RETURN 

7570 

CL5 


6605 

IF T THEN LET P=3 

7500 

GOTO 10 


6607 

IF NOT T THEN LET P=1 

7700 

LET R$ I.X/Y:i =CHR$ J 


6610 

LET B$=B$+F$ 

7710 

IF (X /Y) =■■■" THEN 

LET J=.J 

6620 

LET GF=1 

4-125 



S ö 5 0 

GOTO 5400 

7720 

LET (X , Y;i =CHR$ J 


6000 

LET XHL=XHL+NU/'10000 

7730 

RETURN 


6001 

LET 1=0 

0000 

LET T1=0 


6003 

LET 52=1 

0010 

LET H=HU4-1 


6005 

IF U=0 THEN GOTO 6540 

5020 

reTurn 


6010 

FÜR .J = l TO U 

0500 

IF NOT U THEN GOTO 

0600 

6020 

IF D!:j:i=xhl rnd e(J)=yhl th 

0510 

FÜR J=1 TO U 


EN Qi 

:>TO 6500 

0520 

IF X < > INT D iJ) OR Y 

oEiJ) T 

6022 

IF INT D(ü:i=INT XHL rnd Ei;.J 

HEN 

GOTO 0560 


) =:YHL THEN LET 52=2 

0 5 3 0 

LET D ( =D iU j 


6025 

IF 52=2 THEN RETURN 

0540 

LET E i: J) =E (Ul 


6030 

NEXT J 

0550 

LET U=U-1 


6040 

IF U < > 6 THEN LET U =U 1 

0560 

NEXT J 


6050 

LET D(U;i=XHL 

0600 

IF NOT U THEN RETURN 

6060 

LET E('J:i=YHL 

0610 

FÜR J=1 TO U 


6070 

RETURN 

0630 

IF X < > X iO) 0 R Y < > Y 1 

J) THEN 

6000 

LET XHL=Di:u:i 

G ÜT 0 

0670 


6090 

LET YHL=E(U:i 

0640 

LET X ( J ) = X i U ) 


6900 

RETURN 

0650 

LET Y(Jj=Y(U) 


7200 

SFlUE "SOMOKi]" 

0660 

LET U=U-1 


7210 

GOTO 10 

0670 

NEXT J 


7499 

LET GU=3 

0 6 0 0 

RETURN 


7500 

CL5 




7503 

G 0 5 U B 6000 




7506 

5 L0U 




7507 

PRINT •’*' 




7500 

7510 

IF Gl.-.l=2 THEN PRINT “ !=aBsM=M« 

IF G-U = l THEN PRINT " W«S5iBSt=1^3 




aKaiwaiawaii • 




7512 

PRINT 
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Reakfionsspiel 


Break-oul 


Beschreibung des Programmes (4000 
Bytes) 

Wie ein Sportwagen, läßt sich 
dieses Reaktionsspiel in mehreren 
Geschwindigkeitsstufen beschleuni¬ 


gen. Ihre Aufgabe ist es, mit Hilfe 
eines Schlägers einen Ball so ge¬ 
schickt zu katapultieren, daß er 
unmittelbar hintereinander liegende 
Wände durchschlägt.Alexander Henkel 


1 REM MINDESTENS 709 BELIEBIG 
E ZEICHEN 

9 REM BREHK>>onT 

UÜN R.HENKEL 
EUER CHIP-SPEC IRL 

100 PRINT -BRERKüLlT 

110 PRINT ,,“DÜRCHSCHLRGEN SIE 
MIT DEM SPIEL-BRLL SECHS HINTERE 
INRNDERLIEGEN-“ 

120 PRINT ‘^D£ MhüERN .STEUERN SI 
E DEN SCHLREGER MIT NhCH U 

NTEN UND MIT 

130 PRINT NRCH oben , so D 

RS5 IHNEN DER BRLL NICHT NRCH RE 
CHTS RU5 DEM 

14.0 PRINT ’^SPIELEELD ENTMISCHT, 

1.12 PRINT ” SOLLTE IHNEN DR5 DQC 
H PRSSIEREN .. SO IST DR5 SPIEL BEE 
NDET « MIT 

14-4. PRINT BEGINNT EIN 

NEUES SPIEL.. MIT '== ’KEHR 
EN SIE ZURUECK IMS BRSIC.” 

150 PRINT , .N’UhEHLEN SIE NUN EI 
N E N S C H U IE R IG •- K E IT 5 G R i’i D Z U IS C H E N 
,1 UND 10; 


9906 PRINT TRB 7.. 

Ei ■' 

9907 PRINT TRB 6; 

M •> 

990S PRINT TRB 5, 

9 ■■ 

9909 PRINT TRB 4.; 
a =■ 

9910 PRINT TRB 3; 

Bi •> 

9911 PRINT TRB 2; 

B •• 

9912 PRINT TRB 1.; 

a •• 

9913 PRINT TRB 0; 

■ >• 

9914 PRINT TRB O 

9915 PRINT hT 0,0.;“ 



9916 PRIr4T “ SSINCLHIR ZXSlS '• 

9917 PRINT '' .... 

991S PRINT RT 12,17; ^‘R« HENKEL" 
9920 PRINT RT 14,17 " PRRE5ENT lEP 

T : ■' 

9 9 21 r‘ O f-. I ~ 1F: T O 2 0 
99^:2 PRINT RT 1,0: 


9923 NEX“ I 

9 924 PRINT RT 15.11.; ''ÜOgfgg ggiim " ; R 
T 19.11 ; 


150 

F' R I r.i T ‘ ‘ r 1 : 5 F H p L. E ICIHT 10; N 

9925 

PRINT RT 21,0; 

iFiiTTE ein 

;üht 

UNBE- DINGT ZU EMPPEHLEr-N " 

E TR 

ST' E D R U E C K F N^^^ ' 


170 

INPUT S 

9926 

CLERR 


150 

LET Sl-INT (S/2) 

'9 9 2 7 

5 RUF -g'' 


190 

LET 52 = 12S+ rS-PitSlj 

9 9' 2 'ö 

ir INKFV!^-:-- THEN 

GOTO 9925 

200 

POKE 16924,250+51 

9 9 2 9 

CLS 


210 

PÜKE 15925,52 

99 30 

RUN 


220 

RRND U5R 16514 

9940 




9S99 STOP 

9900 PRINT TRB 15.; ' 

9901 PRINT TRB 15," 

9902 PRINT TRB. 15, ’ 

9903 PRINT TRB 15;" 

9904 PRINT TRB 9,“ 

9905 PRINT TRB S,“ 





9941 5CPOLL 
994 2 P R i: NT ' ^ hl DR E 6^ 5 E : 
9943 SCküLL 

994 4- PRINT ... 

9945 SCRüLu 


BYTES 
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9945 I 

pp. INT 





16659 

-'Tk-rcT 

42 

12 

64 

1 

99 4 7 

5 CR OLL. 





16664 

30 

0 

9 

25 

34 

9948 I 

FuR Z-18314 TG 172 

2 2 


16669 

11 

67 

54 

52 

17 

9949 I 

PRIi-JT Z 

] 




16674 

2 

0 

205 

194 

66 

9959 

Ir-'PUT E" 

VTE 




16679 

34 

13 

67 

42 

253 

9951 

POKE ZJ 

8YTE 




16684 

66 

17 

33 

0 

6 

9952 

PRINT The 13. 

PEEK 

y 


16689 

4 

54 

128 

25 

16 

9958 

5CPOLL 





16694 

251 

205 

236 

66 

33 

9954 

NEXT Z 





16699 

0 

0 

205 

100 

66 

9955 

SCROLL 





16704 

205 

26 

66 

205 

26 

995=6 

SCRÜLL 





16709 

66 

33 

0 

0 

237 

9957 

PRINT ’‘DIE MC 

-EINLESE-ROUT I 

16714 

91 

13 

67 

6 

6 

NE KhNN NUN’^ 





16719 

25 

16 

253 

235 

6 

9958 

SCROLL 





16724 

3 

33 

23 

67 

25 

9959 

P R I fT ” G E L 0 E S C H T U E R D E r 


16729 

213 

94 

35 

86 

42 

9960 

SCROLL 





16734 

11 

67 

25 

175 

190 

9961 

SCROLL 





167-39 

194 

135 

65 

209 

19 

9962 

PRINT ” 

UOR DEM EPS 

TEN 5 

TRRT 

16744 

19 

16 

234 

42 

13 

SOLLTE Dh5'’ 





16749 

67 

17 

15 

67 

41 

9963 

SCROLL 





16754 

25 

94 

35 

86 

42 

9964 

P R I NT "PR 0 0 R Fl M H ü E D 0 0 h 

hege 

16759 

11 

67 

54 

0 

25 

SPEICHERT*’ 





16764 

54 

52 

34 

11 

67 

9965 

SCROLL 





16769 

205 

236 

66 

195 

64 

9966 

PRINT “UERDEN 




16774 

65 

209 

229 

33 

47 







16779 

67 

25 

94 

35 

86 

ADRESSE BYTES 




16784 

237 

83 

13 

67 

225 

__ 

__ _ 

_ 




16789 

62 

118 

190 

202 

210 







16794 

65 

62 

128 

190 

202 

16514 

33 

0 

0 

34 

0 

16799 

70 

65 

17 

33 

0 

16519 

67 

33 

0 

0 

34 

16804 

126 

167 

237 

82 

70 

16524 

9 

67 

42 

12 

64 

16809 

184 

40 

249 

6 

3 

16529 

17 

65 

0 

25 

34 

16814 

25 

54 

0 

16 

251 

16534 

253 

66 

205 

107 

66 

16819 

42 

9 

67 

35 

34 

16539 

62 

128 

17 

33 

0 

16824 

9 

67 

205 

236 

66 

16544 

42 

12 

64 

6 

32 

16829 

58 

255 

66 

61 

50 

16549 

35 

119 

16 

252 

35 

16834 

255 

66 

254 

0 

194 

16554 

35 

6 

21 

119 

25 

16839 

70 

65 

33 

0 

160 

16559 

16 

252 

6 

32 

119 

16844 

205 

100 

66 

195 

152 

16564 

35 

16 

252 

42 

12 

16849 

64 

22 

6 


0 

16569 

64 

17 

37 

0 

25 

16854 

224 

205 

100 

66 

42 

16574 

17 

33 

0 

62 

8 

16859 

12 

64 

14 

24 

6 

16579 

14 

0 

6 

3 

198 

16864 

32 

35 

126 

198 

128 

16584 

128 

197 

229 

6 

6 

16869 

119 

16 

249 

35 

13 

16589 

119 

35 

35 

35 

16 

16874 

"TD 

243 

21 

32 

229 

16594 

250 

225 

193 

iCT 

16 

16879 

42 

0 

67 

237 

91 

16599 

241 

12 

71 

62 

7 

16884 

9 

67 

167 

237 

82 

16604 

185 

120 

32 

229 

62 

16889 

48 

4 

237 

83 

0 

16609 

42 

50 

255 

66 

42 

16894 

67 

42 

37 

64 

62 

16614 

12 

64 

17 

4 

3 

16899 

191 

189 

32 

8 

62 

16619 

25 

54 

45 

35 

54 

16904 

253 

188 

32 

243 

195 

16624 

46 

35 

54 

14 

35 

16909 

136 

64 

62 

127 

189 

16629 

34 

14 

64 

42 

0 

16914 

‘T'-y 

--JX- 

235 

62 

253 

188 

16634 

67 

205 

124 

66 

17 

16919 

3*7 

230 

201 

33 

0 

16639 

21 

0 

205 

194 

66 

16924 

253 

205 

100 

66 

1 

16644 

-3 5 

101 

46 

0 

17 

16929 

33 

0 

42 

37 

64 

16649 

33 

0 

6 

B 

41 

16934 

62 

251 

189 

"Tr? 

27 

16654 

43 

1 

25 

16 

250 

16939 

62 

253 

188 

32 

. 1-1 
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Reaktionsspiel 


16944 

42 


66 

17 

223 

17084 

16 

248 

62 

28 

18 

16949 

255 


175 

190 

192 

17089 

201 

237 

75 

52 

64 

16954 

54 

128 

34 

253 

66 

17094 

62 

16 

33 

0 

0 

16959 

17 

132 

0 

25 

54 

17099 

203 

17 

203 

16 

237 

16964 

0 

201 

62 

223 

139 

17104 

106 

237 

82 

48 

1 

16969 

192 

62 

25-3 

ise 

192 

17109 


63 

61 

32 

241 

16974 

42 

253 

66 

17 

132 

17114 

203 

17 

203 

16 


16979 

0 

25 

175 

190 

192 

17119 

42 

52 

64 

41 

237 

16984 

54 

128 

167 

237 

82 

17124 

66 

203 

252 

34 


16989 

54 

0 

9 

34 

253 

17129 

64 

225 

201 

42 

12 

16994 

66 

201 

1 

1 

0 

17134 

64 

17 

248 

2 

25 

16999 

9 

48 

253 

201 

42 

17139 

34 

14 

64 

42 

9 

17004 

12 

64 

14 

24 

6 

17144 

67 

205 

124 

66 

201 

17009 


35 

54 

0 

16 

17149 

99 

71 

39 

87 

0 

17014 

251 

35 

13 

32 

245 

17154 

7 

8 

0 

0 

0 

17019 

201 

34 

7 

67 

33 

17159 

0 

0 

87 

0 

8 

17024 

o 

67 

6 

5 

197 

17164 

72 

1 

0 

32 

0 

17029 

229 

237 

75 

7 

67 

17169 

222 

255 

224 

255 

34 

17034 

17 

10 

0 

62 

16 

17174 

0 

“TT 

0 

255 

255 

17039 


0 

0 

203 

17 

17179 


0 

255 

255 

■^OT 

17044 

203 

16 

237 

106 

237 

17184 

255 

222 

255 

1 

0 

17049 

82 

48 

1 

25 

63 

17189 

223 

255 


255 

1 

17054 

61 

32 

241 

203 

17 

17194 

0 

TT 

0 

34 

0 

17059 

203 

16 

237 

67 

7 

17199 

1 

0 

ö 

0 

1 

17064 

67 

235 

225 

115 

35 

17204 

0 

o 

0 

0 

0 

17069 

193 

16 

212 

237 

91 

17209 

0 

0 

1 

0 


17074 

14 

64 

6 

5 

43 

17214 

0 

1 

0 

0 

0 

17079 

126 

198 

28 

18 

19 

17219 

2 

0 

0 

0 

28 


Fomiel 1 


' Beschreibung des Programmes (ZX-81- 

, Grundversion, 1000 Bytes) 

Rennfahrer-Fieber wird Sie erfas¬ 
sen, wenn Sie dieses Programm ein- 
' getippt haben. Nach dem Programm- 

; Start blicken Sie auf eine Renn- 

, strecke, die entweder geradeaus 

< führt oder abbiegt.Um auf der 

i Straße zu bleiben, muß man 

möglichst schnell die Tasten 1 bis 
3 drücken ( 1 für Linkskurve, 2 = 

geradeaus, 3 = rechts). Das Spiel 
wird immer schwerer, da immer we¬ 
niger Zeit zum Reagieren bleibt. 
Ist man von der Straße abgekommen, 
gibt der ZX-81 die Endgeschwindig¬ 
keit und die Punktzahl an. Ein 
neues Spiel wird mit GOTO 4 gestar¬ 
tet. Übrigens: Am Anfang ist so 
lange Pause, bis man eine Taste 
gedrückt hat. Nach dem Start ist 
die Fahrtrichtung ersteinmal ge¬ 
radeaus . 


PROGRAMMEINGABE: 

Zeile 2: Autostart, 10 bis 12: 
Anzeige Start und Pause bis Tasten¬ 
druck erfolgt, 14: Gebirge und 
Straße werden gezeichnet, 16 bis 
34: Warteschleife bis Tastendruck, 

sie wird mit fortlaufendem Spiel 
weniger durchlaufen, 36: Abfrage. 
Wurde richtige Taste gedrückt?, 38: 
Punkteerhöhung, 40: Schwierigkeits- 
gra erhöhen, 42: neue Fahrtrichtung 
festlegen. 

VARIABLEN: 

Feld A$ : enthält Straßengrafik. 
Feld C$ : enthält Wagen, der in der 
Kurve nach außen geht. B$: Spiel¬ 
rand; S: Schwierigkeit; P: Punkte; 
A: Richtung der Straße; I: Schlei¬ 

fenvariable; Q: führt zum gewollten 
Programmstopp anstelle von STOP! 

Martin Baumann 
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Geschicklichkeilsspiel 


8 LET fl=:UHL 

10 PRINT PT UPL "4.", NOT PI.i 
•Wm- . "ir STPRT 
i£ PPUSE NPL ''4E4." 

14 PRINT PT NOT PI NOT PI, 

Ks. " "CODE "b “-P TO ) , ,B$,P 

$(R,SGN PI) , B$ j , B$, Pi (P , URL "S'') 

, B$,, ,B$; R$ (P, INT PI)jB$,PT CODE 
"1 " ,PI, 05 (P) 

16 BOR I=NOT PI TO S 

PLOT CODE ‘'ti"+P , CODE "B" 

UNPLOT UPL ’'S''+P,C.OD£ "B“ 

'«®'',CODE "O” 

"10 "..CODE "9" 
CODE ”6” 

"10",CODE "5" 


18 

£0 

££ 

£4 

£6 

£3 

80 

8 £ 


PLOT CODE ' 
UNPLOT UPL 
PLOT CODE ' 
UNPLOT UPL 
LET B=CODE 
IF B/NOT P 


INKEYS-CODE "0‘ 
THEN GOTO CODE 


8" 


34 NEXT I 
36 IF E<>P 
"I " , PI.; "ENDE 
5CHW . " .: UPL 

.; T R B N OT PI; " P LI N KT E ; 

33 LET P=P-I+URL ‘ 

40 IF UPL "5>£" THEN 
GN PI 

4£ LET P=P+(RND>URL 

■::INT PI) - (RND :u.)pL ",5" 
P I) 

44 GOTO CODE ";" 


THEN PRINT PT CODE 
"jTPB NOT PI;"ENDGE 
(51-S) *7.5".; " KM/H" 
".; P.; O 
1 " -s 

LET 6=3-5 


PNC- 


PND P 
R > SGN 


:l 

REh 

FORMEL 1 

(TEIL H) 



IJÜN MBEHUMflNN 



EUER CHIP 

-SPECIRL 

2 

DIM 

P $ (3,3,5 ) 


4 

LET 

P 5 (1., 1) = " 

& 

LET 

H $ 1 j 2 j - SEI 

v 

S 

LET 

( 1.8) 


10 

LET 

H$ j2 .. 1) ■ 

H'' 

1:2 

LET 

( 2 . 2 ji == r 

TI’ 

14. 

LET 

R $ (2,3 ) “ ■' 

r- 

16 

LET 

H 5 (3,1) = ' ‘ HT 

-ji" 

IS 

LET 

H$ (3.2) 

aw 

20 

LET 

(3.3) =”■ 

H" 

22 

LET 

6$=:' SHi“ 


2-4 

DIH 

C$ (3.5) 


26 

LET 

C$(l) 

' ‘ 

28 

LET 

C$ 1.2; 


80 

LET 

Csfc (3; ' 



1 REM FORMEL 1 ÜTEIL B) 

UON M.BRUMRNN 

FUER CHIP-SPECIPL 

G; SPUE "S" 

4 LET 8= CODE ''-M” 

6 LET P=NOT PI 


Räuber und Gendarm 


Beschreibung des Programmes 
(4000 Bytes) 

Was auf jeder Freizeit Spaß macht, 
läßt sich mit diesem Programm nach¬ 
vollziehen. Doch in diesem Spiel 
sind Sie selbst der Räuber (R). Sie 
sollen Geldsäcke ($) schleppen, die 
man aufnimmt, indem man sich links 
daneben stellt und auf Taste 1 


drückt. Aber Vorsicht, sonst laufen 
Sie einem Polizisten (G) in die 
Finger. Die Säcke sind so schwer, 
daß Sie stets nur einen gleichzei¬ 
tig tragen können. Jeden Sack legen 
Sie in die Schubkarre (rechts hin¬ 
stellen und Taste 0 drücken). Dafür 
gibt es jedes Mal einen Punkt. 

Helmut Feldmeier 


1 

GOTO 3000 

3 

LET 

'rjr 

•H 

II 

Ü 

2 

LET X=4 

9 

LET 

D=C 

3 

LET H$=" “ 

10 

LET 

E=0 

4 

LET B$=H$ 

11 

CLS 


5 

FR:=.T 

12 

LET 

F=4 

6 

LET Y=0 

13 

LET 

G = 1 

7* 

LET E=1 

14 

LET 

R = 1 
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Geschicidichkeilsspiel 


15 

LET Z=0 


19 

FÜR R=0 TO 31 


20 

PRINT RT 0,R. 


21 

LET B=0 


25 

PRINT RT 20, 


30 

PRINT RT 21,R,“1'‘ 


40 

PRINT RT B,0.; ••■••;TRB 

31, ”■ 

50 

LET B=B+0,67741936 


60 

NEXT fi 


lOO 

FÜR R=1 Tü 25 


110 

PRINT RT 6,R;“1‘' 


120 

PRINT RT 10,H/4+l;“l 


130 

PRINT RT 15,(R/4:i*3: 

”1“ 

140 

NEXT R 


150 

FÜR h=6 TG 9 


160 

PRINT RT R,9;"H“;TRB 

21: ”H 

170 

NEXT R 


171 

FÜR R=5 TO 19 


175 

PRINT RT R,2;“H“ 


177 

NEXT R 


178 

LET R=19 


179 

LET B=6 


ISO 

PRINT RT 5,6 ; '’R'*; TRB 

~'Fi * " — 

190 

PRINT hT 9,10 .; “£3" .; TRB 22, "ü 

195 

PRINT RT 19,15,”»“ 


200 

PRINT RT 14,10: “El” 


210 

PRINT RT 6,23, 


220 

PRINT RT 2,4; ”E1“ 


230 

PRINT RT 2,7:”-” 


256 

6 L 0 U 


260 

FÜR J-0 TQ 200 


261 

PRINT RT C,D:” ” 


262 

IF 0=16 OR D=1 THEN 

LET E=: 

263 

LET D=D-E 


264 

PRINT RT C,D,”@” 


265 

IF X=1 THEN PRINT RT 

14,10 


■■E3" 

266 PRINT hT F,2;'‘ " ; TflB 9," ” ; 

IRB 21;" " 

267 IF F=5 OR F=3 THEN LET G=-G 

268 LET F=F-G 

269 PRINT HT F,2;"|g",THB 9;"@"; 


TRB 2 

:i; 




270 

IF 

INKEY$="6" THEN 

GOTO 

500 

272 

H R 

INT RT 2,22, "BONi 

iJ 3 ; 

' R 


PR 

INT RT 2,11,;“SC01 

RE ; • 

' : Y * 

274 

IF 

INKEY$*:“6" THEN 

GOT 0 

500 

275 

IF 

INKEY$="1“ THEN 

GOT Ü 

900 

260 

T CT 
^ I 

INKEY$="7” THEN 

GOT 0 

600 


IF 

INKEY$="0“ THEN 

GOTO 

600 

2 6 6 

PR 

INT RT 14,2; “H“ 



2 6 7 

IF 

INKEY$=“5” THEN 

GOT 0 

700 

2 6 6 

IF 

INKEY4="8“ THEN 

GOTO 

750 


290 PRINT PT H.B; 


300 LET P=PEEK (PEEK 16398+PEEK 
i G 3 '3 Q + S 5 S) 

305 PRINT HT 

307 PRINT HT 5,2, , ThB 

TRB 21;"H” 

310 IF P=CuDE ■■ ■’ THEN GOTO 700 

320 IF P=CQDE "S“ THEN GOTO 102 

0 

330 NEXT J 
340 STOP 
500 LET H=:R + 1 
510 PRINT RT R,B; 

520 IF PEEK (PEEK 1639S+PEEK 16 
399*256) =CCiDE “H” THEN GOTO 540 
525 LET R=h-1 

530 GOTO 260 

540 GOTO 1200 

600 LET H=R-1 

810 PRINT RT H,B; 

520 IF PEEK (PE^K 16398+PEEK 16 

399*256)=CODE "H” THEN GOTO 640 
625 LET H=:R + 1 
63 0 G O T O 260 
640 GOTO 1230 
700 PRINT RT R + 1,B + 1.; 

710 IF PEEK (PEEK 16396+PEEK 16 
399 «256 :i =C:ODE 'ii“ THEN GOTO 730 
715 IF PEEK (PEEK 16398+PEEK 16 
399*2561=CODE "H" THEN GOTO 730 
720 GOTO 1300 
730 PRINT hT R,B.:R$ 

74.0 LET E=B-1 

741 PRINT RT R.B; 

742 LET R$=CHR$ PEEK (PEEK 1639 
8+PEEK 16399*2561 

745 PRINT RT R.B; “13" 

748 GOTO 260 

750 PRINT RT R+1,B+1; 

755 IF PEEK (PEEK 16398+PEEK 16 
399«2561=CODE "M" THEN GOTO 770 
757 IF PEEK (PEEK 16398+PEEK 16 
399 «2561 =;CODE “H“ THEN GOTO 770 
760 GOTO l;300 
770 PRINT RT R,B:R$ 

775 LET B=:B + 1 
730 PRINT RT H,B; 

790 LET R$=CHR4 PEEK (PEEK 1639 
8 + F‘ E E K 16:3 9 9 « 2 51-1 
792 PRINT RT fi,B, ' g“ 

795 GOTO 260 

800 IF 2=0 THEN GOTO 260 
810 IF 2=1 THEN GOTO 860 
820 LET 2=0 
830 PRINT RT 2,8;" ” 

840 PRINT RT R,B + 1.;"-“ 

850 GOTO 260 
860 LET 2=0 
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Geschicklichkeitsspiel 


S70 

PRINT RT 2,5; •' 

1040 

GOTO 1 

S80 

= v +1 

IF R=19 RND B=14 TUEN LET Y 

1200 

1210 

PRINT RT R,B.;”S” 

PRINT RT R-1,B,”H” 

S90 

LET X=X-1 

1220 

GOTO 260 

895 

GOTO 260 

1230 

PRINT RT R,B,”H” 

900 

IF Z=0 THEN GOTO 92© 

1240 

PRINT RT H+1,B;”H” 

910 

GOTO 260 

1250 

GOTO 260 

920 

PRINT RT R,F: + i; 

3000 

CLS 

930 

IF PEEK iPEEK 16398+PEEK 16 

3010 

PRINT RT 3,0; 

399 ff2 

:5t-:i.-CODE "En'‘ THEN GOTO 980 

ff ff * ff 

^ffff^ffffffffffffffffffifff” 

940 

LET Z=2 

3020 

PRINT RT 5 , 6.; "SreUBER D SEN 

950 

PRINT RT 2,5;” ” , TRS 

DRRM 


960 

970 

PRINT RT H,8+l:” ” 

GOT 0 260 

3030 

F . ” 

PRINT RT 7,6; "(C) BY HELf-lUT 

980 

LET Z=i 

3040 

PRINT RT 9,0; 

990 

PRINT RT 2,5: ”ff”,THE S ; ” ” 


1000 

PRINT RT R,8+l;” ” 

3050 

F U P! H = 1 T U 11 

1010 

GOTO 260 

3060 

PRINT RT R,4;”4'’;TRB 25;"-” 

1020 

IF Z=2 RND X-Q THEN GOTO 19 

3070 

NEXT R 

1030 

PRINT RT 3,2;"LEIDER HRT MR 

3080 

IF INKE Y $ = ”” THEN GOT0 3O80 

N SIE 

: ERUI8CHT.” 

3090 

GOTO 2 

1035 

FOR R=0 TO 140 

4000 

LET R=R+1 

1037 

NEXT R 

4010 

GOTO 180 


Flipp-oul 


Beschreibung des Programmes 
( 4500 Bytes) 

Die Spannung eines Flipper-Spiels 
und die Möglichkeiten von "Break¬ 
out" wurden in diesem Geschicklich¬ 
keitsspiel genutzt. Der Ball wird 
mit "0" abgestoßen, der Schläger 
mit "5" und "8" bewegt. Die Hinder¬ 
nisse berechnet der Computer bei 
der Version "Sofort-Spiel" mit RND. 
Man kann sie aber auch mit dem 


Konstruktions-Set setzen. Dabei 
bedeutet: 

+ = inverses Plus 
- = inverses Minus 
* = schwarzer Block 

Gestartet wird das Spiel per Kon¬ 
struktions-Set mit "0". Stößt man 
den Ball auf ein inverses Plus, 
dann wird dieses zu einem inversen 
Minus und umgekehrt. Jeder Treffer 
gibt einen Pluspunkt. 

Helmut Feldmeier 


OBREM FLIRR-OUT 


UON H.FELDMEIER 


S LET K=ll 
9 LET Z=15 
10 PRINT RT 0 



EUER CHIR-SPECIRL 


,1 LET 0=0 

2 LET BZ=3 

3 CLS 

4 GOTO 5000 

5 CLS 

6 LET HR=0 

7 ERST 


15 LET DF=3 
20 PRINT RT 21,5 

30 FOR R=0 TO 20 
40 PRINT RT fl,5, 


50 NEXT fl 
60 FOR fl=5 TO 20 
70 PRINT RT R,18 
80 NEXT R 



S".;ThB 20, "1 
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Geschicklichlceüsspiel 


90 

EOR R=17 

TG 20 

540 

GOTO 252 

100 

PRINT RT 

H , 7; *'■“ TR6 16, ' li” 

550 

PRINT RT 18,K,B$ 

110 

NEXT R 


555 

LET L=-l 

115 

IF Hfl=l THEN GOTO 130 

560 

LET K=K-1 

120 

O o LE’ ci! 0 0 0 

570 

IF K<=S THEN LET K=8 

130 

SLOÜ 


580 

PRINT RT 1S,K,R$ 

135 

IF 0=1 THEN GOTO 6020 

590 

G UT0 252 

140 

LET Xn:19 


600 

LET Z=Z+1 

150 

LET Y=20 


605 

P R I NT RT Y - Y R , X - X R ; ‘' H " 

160 

IE INKEY 

THEN GOTO 180 

610 

GOTO 1010 

170 

GOTO 150 


630 

P RI NT RT Y - Y R , X - X R" 

180 

EOR YY=20 

TO 3 STEP -1 

640 

GOTO 1010 

190 

PRINT RT 

Y , X; ‘’ü“ 

650 

IF X=17 RND Y=20 THEN GOTO 

200 

PRINT RT 

Y, X; 

160 


210 

NEXT Y 


660 

IF X<=15 RND Y>=19 THEN GOT 

220 

LET XR=i 


0 140 

230 

LET YR=1 


670 

GOTO 350 

235 

PRINT hT 

Y . X ; •• •’ 

1000 

LET Z=Z-1 

237 

PRINT RT 

Y,X:"0” 

1005 

PRINT RT Y-YR .X-XR; "fiS" 

239 

LET L=0 


1010 

LET RN=INT (RND^2) 

240 

IE X=:19 

RND Y>=5 THEN GOTO 

1020 

IE RN=0 THEN GOTO 1390 

2500 



1030 

IE RN=i THEN GOTO 1350 

243 

IP X=17 

RND Y>=16 THEN GOTO 

1040 

IE RN=2 THEN GOTO 1400 

2600 


1350 

IE XR<>0 THEN GOTO 1360 

245 

IF X=6 AND Y>=16 THEN GOTO 

1360 

LET YR=-YR 

2600 



1370 

LET XR=-1 

247 

IE Y>=18 

THEN GOTO 2700 

1375 

GOTO 1470 

249 

IE INKEY 

$ = ''8” THEN GOTO 500 

1380 

IE YR=0 THEt-4 GOTO 1390 

250 

IE INKEY 

$ = ■■5“ THEN GOTO 550 

1381 

LET XR=:-XR 

251 

LET L=0 


1382 

LET YR=~1 

255 

PRINT RT 

18 . K, 6$ 

1385 

GOTO 1470 

256 

PRINT RT 

18 , K.: H$ 

1390 

LET XR=-XR 

257 

PRINT RT 

5,22;"SCORE: 

1391 

LET YR=-YR 

258 

PRINT RT 

5,22, "SCORE: " ; Z 

1395 

GOTO 1470 

260 

IE Y>=19 

THEN GOTO 140 

1400 

IE XR<;>0 THEN GOTO 1420 

265 

PRINT RT 

10,22 "E’RELLE : " 

1410 

LET YR=-YR 

270 

PRINT RT 

10,22,"BRELLE:";BZ 

1415 

LET XR=:1 

280 

PRINT RT 

Y -YR , X-XR.i 

1417 

GOTO 1470 

290 

LET G=PEEK (PEEK 16398+PEEK 

1420 

IE Y=0 THEN GOTO 1450 


163 ^ 9 + 256 !! 


310 

IE G=:CODE "B“ 

THEN 

GOTO 

100 

0 





320 

IE G=CODE "D“ 

THEN 

GOTO 

600 

330 

IE G=CODE 

THEN 

GOTO 

150 

0 





340 

IE G=CODE 

THEN 

GOTO 

630 

350 

PRINT RT Y,X; 

II •• 



352 

LET X=X~XR 




355 

LET Y=Y-YR 




365 

PRINT RT Y,X; 

..g.i 



400 

GOTO 240 




500 

PRINT RT 1S,K 




503 

LET L=:l 




505 

LET K=K+1 




510 

IE K>=16-(LEN 

R$:« 

THEN 

LET 

K = 16 

-(LEN R$:i 




520 

PRINT RT 18,K 

, R$ 




1423 LET XR=:-XR 

1430 LET YR=1 

1440 GOTO 1470 

1450 LET YR=-YR 

1460 LET XR=0 

1470 PRINT RT Y .. X" ’■ 

1475 LET Y=:Y-YR 
1480 LET X=X-XR 
1435 PRINT RT Y,X;‘’Ü*' 

1490 GOTO 240 

1500 PRINT RT Y-YR .. X-XR; 

1505 IE L=:0 THEN GOTO 2200 

1510 IE L=1 THEN GOTO 1530 

1520 IE L=:-*l THEN GOTO 1600 

1530 LET XR = --1 

1540 LET YR=1 

1550 GOTO 2220 

1600 LET XR=:1 
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Geschicklichkeiffsspiel 


1610 LET YR=1 
1620 GOTO 2220 
2000 DIM IJ(25) 

2005 DIM Q(25:i 

2010 FÜR R=1 TO 10 

2020 LET U(R:i=:INT (RND*15)+1 

2060 LET Q(R;i=INT (RND + 13:j+5 

2070 NEXT R 

2080 FÜR R=1 TO 5 

2090 PRINT RT U ( R ) . O m ) “H“ 

2100 NEXT R 

2110 FÜR R=6 TO 10 

2120 PRINT RT UCR) ,Q(R) , "H’* 

2130 NEXT R 

214.0 RETURN 

2200 LET YR=:1 

2210 LET XR=0 

2220 PRINT RT Y,Xj'‘ ” 

2230 LET Y=Y^YR 
2240 LET X=X-XR 
2250 PRINT RT YYX;“0‘’ 

2260 pÜTO 240 
2500 FÜR Y=6 TO 20 
2510 PRINT RT Y., X;“0“ 

2520 PRINT RT Y,X;'* “ 

2530 NEXT Y 
2540 GOTO 140 
2600 FÜR Y=17 TO 20 
2610 PRINT RT YYX;''0** 

2620 PRINT RT Y.X.:" ’* 

2623 NEXT Y 

2625 LET B2=BZ-1 

2627 IF BZ=0 THEN GOTO 1 

2630 GOTO 140 

2700 PRINT RT Y.X.:” ” 

2710 LET BZ=BZ-1 

2720 IF BZ=0 THEN GOTO 1 

2730 GOTO 140 

5000 PRINT RT 5.10.; “SPRCE-BRLL“ 
5010 PRINT RT 6.10 ; 

5020 PRINT RT 3.0; ‘’ gWHBKftMWMW 



5040 PRINT RT 9,1; '*(0 1934 * 

BY FELDMEIER H.” 

5050 PRINT RT 11 1; ” PROF I-SCHLRE 
GER ••••■••" = < 1 >'* 

5060 PRINT RT 13 .. 1; “ RMRTEURE-5CH 
LREGER“ ” = <2>” 

5070 PRINT RT 15,1" RNFRENGER >5C 
HLREGER” " <3 > 

5060 PRINT RT 17,1;"KÜNSTRUCTION 
SET = <4:v" 

5065 PRINT RT 19,1;"SOFORT SPIEL 
= < 5 > " 

5090 IF INKEY$="1" THEN GOTO 520 


5100 

IF INKEY$="2" THEN GOTO 

530 

0 



5110 

IF INKEY$="3" THEN GOTO 

540 

0 



5120 

IF INKEY$="4" THEN GOTO 

600 

0 



5125 

IF INKEY$="5" THEN GOTO 

550 

0 



5130 

GOTO 5090 


5200 

LET R$="“" 


5210 

LET B$=" " 


5220 

GOTO 5090 


5300 

LET R$ = •■■■■•• 


5310 

LET B$=" 


5320 

GOTO 5090 


5400 

LET R$ = "“"" 


5410 

LET B$=" 


5420 

GOTO 5090 


5500 

CLS 


5510 

GOTO 6 


6000 

LET 0=1 


6003 

LET HR=1 


6005 

CLS 


6010 

GOTO 7 


6020 

LET B=10 


6030 

LET C:=5 


6040 

PRINT RT C., B;" " 


6050 

LET B =B +(INKEY $ = "S“) -(INKEY 

$ = "5' 

• ’J 


6060 

LET C =C: + ( INKEY $ = " 6 " j - ( INKEY 

$ = "7' 

• j 


6065 

PRINT RT C:,B;"H" 


6070 

IF B<=6 THEN LET B=6 


6060 

IF B>=17 THEN LET B=17 


6090 

IF 0=16 THEN LET C = 16 


6100 

IF C:<=1 THEN LET 0 = 1 


6110 

IF INKEY$="+" THEN GÜSUB 

61 

50 



6120 

IF INKEY$="-" THEN GOSUB 

62 

00 



6130 

IF INKEY $ = THEN GOSUB 

63 

00 



6135 

IF INKEY$="0" THEN GOTO 

632 

0 



6140 

GOTO 6040 


6150 

PRINT RT C,B-1;"H" 


6160 

RETURN 


6200 

PRINT RT C,B-1,"H" 


6210 

RETURN 


6300 

PRINT RT C., B-1;"B" 


6310 

RETURN 


6320 

PRINT RT C,B;" " 


6330 

GOTO 140 
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Geschicklichlceitsspiel 


Rocket-Pilol 


Beschreibung des Programms (1700 
Bytes) 

Das Programm simuliert den Flug 
einer Transportraumfähre über einer 
Mondlandschaft. Der Pilot soll die 
Fähre zu einer Mondbasis fliegen. 
Er kann den horizontalen und verti¬ 
kalen Schub regulieren. In einem 
Teil des Flugkorridors treten unre¬ 
gelmäßige GravitationsSchwankungen 
auf, die der Pilot meistern muß. 
Dabei darf er nicht in einen Stern 
oder in die Sonne rasen. Da Rück¬ 
wärtsflug nicht möglich ist, muß 
man auch auf die Horizontalge¬ 
schwindigkeit achten. Das Aufsetzen 
der Fähre kann nur bei minimaler 
Fallgeschwindigkeit und genau auf 
die Landungsrampe erfolgen. 
Programm-Aufbau 

10 - 680: Hauptprogramm, Kontrolle 


des Antriebes, der Koordinaten, des 
Fluges und des Landemanövers. 690 - 
1350: Unterprogramme. 690 - 760: Es 
werden die Variablen für die Koor¬ 
dinaten und für die Zeit initiali¬ 
siert und Hilfsvariablen definiert. 
770 - 910: Generierung des Ter¬ 
rains. Der mittlere Bereich des 
Berges wird immer anders aufgebaut. 
920 - 980: Vertikalschub der Moto¬ 
ren. 990 - 1050: Horizontalschub 
der Motoren. 1060 - 1100: Test der 
nächsten Position der Fähre. Es 
wird getestet, ob die Systemvaria¬ 
ble im Speicherbereich 16398, 16399 
ungleich Null ist. 1110 - 1120: 
RND-Schwingungen der Gravitation in 
dem von Subroutine 770 generierten 
Bereich. 1130 - 1180: Zeitmessung. 
1190 - 1230: Generierung der Fähre. 

Ivan Matusik 


1 REM 

( C :i DIPL. IM G . I LI R r g r-1 R T U 5 IK 

le PRi IT jjil I I M 


QCKET PILOT] 


" : , , , '• Dh3 progrrmm simuliert d 
EN FLUG EINER RhUMFhEHRE” 

15 PR INT RT £0 .. £ ” 

£0 PRINT RT £0,£, 

30 IF INKEY $ = ■“■ THEN GOTO 50 
35 IF INKEy$ = ”J'* THEN GOTO 50 
4.0 IF INKEY$ < > “N” THEN GOTO 15 
4.5 G OT Ü 10 0 
50 CLS 

60 PRINT SIE SIND PILOT UO 

N EINER TRRNS-PORTERRRUMFREHRE- 
SIE MUESSEN IHRE LRNDUNG IN EI 

NEM 5E KT OR U O L L B R IN G E N . IN C* E 

M HEFTIGE GRR-UITRTlONSSTUERME R 
LLE BISHER IGEN'JERSUCHE ZUM SCHEI 
TERN GEBRRCHT HRBEN.“ 

70 PRINT •• STEUERTRSTEN : ** 

75 PRINT , , 0 UERTIKRL" 

30 PRINT , ,0 HORIZONTRL" 

35 PiRINT PTI &3 l; 


EINE TRSTEl 


90 IF INKEY $ = THEN GOTO 90 
100 CLS 
110 G05UB 690 
1£0 G05UB 770 


1£5 

GOSUB 

1£70 

130 

GOSUB 

1190 

135 

LET C 

= 0 

140 

GOSUB 

1130 

150 

LET U 

= S 


160 LET T=R 
170 LET B$=R$ 

130 IF C$ THEN GOTO £00 

190 LET C$=R$ 

£00 LET R$=INKEY$ 

£10 IF R$ = "l'' OR R$ = "‘' THEN G03 
IJB 9£0 

££0 IF R$ = "0'‘ THEN GOSUB 990 
£30 IF R$<>"0'' RND R$<>‘'1" RND 
H$ < > " THEN GOTO £90 

£4-0 IF 3 >10 RND S < 16 THEN GOSUB 
1110 

£45 IF C$ = '"' THEN GOTO 300 
£47 IF R:>=£1 OR R-1<0 OR S>£9 T 
HEN GOTO 310 
£ 5 0 G O S U B 1060 

£60 IF 5=£S RND IR •= =£ RND R=£0 
THEN GOTO 610 
£65 IF T=R THEN GOTO £90 
£70 IF R<>0 OR B-::>0 THEN GOTO 3 
10 


£90 

GOSUB 

1190 


300 

GOTO 

140 


310 

IF R •: 

=0 THEN LET F 

:: = 1 

3£0 

IF R> 

=£1 THEN LET 

R=£0 

330 

IF 3 > 

=£9 THEN LET 

3 =£9 
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GeschicklichkeHsspiel 


J 



H" 



SIE HABEN ES 


ICH GRhTU 


hT 5 .. 2.. D $ 
AT 5.2; '’G 


7S0 PRINT AT 20,0.. "J 
H. .H" 

790 PRINT AT 19,7.; 


300 PRINT AT 13,3.; • 
310 PRINT AT 17.. 9.; • 
320 PRINT AT 16,10.;'* 
8 50 PRINT AT 15,10.;" 


340 PRINT AT 14,12.; "J" 

350 FÜR X=ll TO 15 
360 LET Y=INT i;RND+7:i 
370 FÜR Z = 17 TO 17- Y STEP --1 
830 PRINT AT Z,X.;"1" 

390 NEXT Z 

900 NEXT X 

910 RETURN 

920 LET IR=IR+1 

930 IF A$=B$ THEN GOTO 950 

940 LET IR=1 

Ü50 Ir THEN LET R=R4lR 

960 IF A$="l" THEN LET R=R-IR 
970 IF C$="" THEN LET R=T 
930 RETURN 
990 LET I5=IS+1 
1000 IF A$=B$ THEN GOTO 1020 
1010 LET IS=1 

1020 IF A$=B$ THEN GOTO 1030 
1025 LET IR=1 
1030 LET IR=:IR + 1 
1035 LET S=S+IS 


640 

IF 

INKEY $ = ■•■■ THEN GOTO 64-0 

1040 

LET R=R+IR 

650 

IF 

INKEY$="ü" THEN GOTO lOO 

1050 

RETURN 

660 

IF 

INKEY $ < >"N" THEN GOTO 6 2 

1060 

PRINT AT R,S.; 

1 



1070 

LET A=PEEK (PEEK 16393+256* 

670 

PRINT RT 5,2; 

PEEK 

16399) 


1030 

PRINT AT R,S + 2.; 

630 

STOP 

1090 

LET B=PEEK (PEEK 16393+256* 

690 

LET 

C =0 

PEEK 

16399) 

700 

LET 

K=0 

1100 

RETURN 

710 

LET 

L=0 

1110 

LET R=R+INT (RND*3) 

720 

LET 

R=20 

1120 

RETURN 

725 

LET 

T=20 

1130 

LET C=C+1 

730 

LET 

IR=0 

1140 

LET K=9 

735 

LET 

5=2 

1150 

PRINT AT 20,13.;" 

740 

LET 

U=2 

1160 

GOSUB 1260 

745 

LET 

15=0 

1170 

PRINT AT 20,13.;C 

750 

LET 

Ii 

m 

ii 

1130 

RETURN 

755 

LET 

II 

ifl- 

Q 

1190 

PRINT AT T-1,U+1," " 

760 

LET 

D$ = '* 

1200 

PRINT AT T,U.i " 




1210 

PRINT AT R-1,5 + 1.;"A" 

765 

RETURN 

1220 

PRINT AT R,S.;"b"%" 

770 


1230 

RETURN 


1240 FÜR 0=1 TO K 


60 











Lobyrinthspiel 


1250 NEXT O 

1260 RETURN 

1270 FÜR 1 = 1 TO 4- 

1280 LET C = INT (RND+7:i 

1290 LET D=INT (RND^ÜÜ) 

1300 PRINT ftT 

1310 NEXT I 

1320 LET E=INT (RND+3) 

1330 LET F = INT (RND4t30) 

134-0 PRINT RT E,F,"Ü'‘ 

1350 RETURN 

1360 RETURN 

2000 SRUE “ROCKET PILOQ* 

2001 RUN 

ü 



H c . H 


Lab-Maus 


Beschreibung des Programmes (2285 
Bytes) 

Wie beim echten Labyrinth-Spiel, 
bei dem sich eine Computer-Maus den 
kürzesten Weg sucht, um den Ausgang 
zu erreichen, funktioniert diese 


ZX81-Version. Hat die aus einem 
Dollar-Zeichen bestehende Laby¬ 
rinth-Maus einmal den Weg gefunden, 
dann merkt sie sich die kürzeste 
Strecke. 

Michele Langobardi 


1 REM LhBYRINTH 

U O N r-1 . L O N G O E H R D 1 

FUER CHIP-SPECIAL 

3 LET 0=0 
4. DIM 0(22,32) 

5 PRINT 

6 FÜR F=1 TO 32 

7 LET H(22.F)=151 

8 LET H(1.F;i=151 

9 NEXT' F 

10 FOR F=0 TO 31 STEP 2 
20 FÜR D=1 TO 20 
30 PRINT RT D.F;*’f3“ 

4-0 LET R ( D h 1 , F -f 1 ) = 151 
50 NEXT D 
60 NEXT F 
65 PRINT 


70 

FÜR F 

=2 TO 30 STEP 2 

60 

LET L 

=2+INT tRND41S) 

90 

PR INT 

RT L , F : =■ “ 

9 9 

100 

5 L ü ‘.-.j 

LET R 

(L + l , F + 1) =0 

110 

NEXT 

F 

120 

PRINT 

RT 1,1; ä” 

130 

LET Z 

= 1 

14-0 

LET K 

= 1 

150 

LET 0 

= 0 + 1 

151 

PRINT 

RT 0.15;G 

155 

IF R ( 

Z+l,K+2!=0 THEN 

160 

IF H «: 

Z+2,K+1)=0 THEN 

10 

161 

IF H ( 

Z,K. + i:i=0 THEN LI 

152 

IF R i 

Z , K + lj < >0 THEN ! 

170 

LET H 

( Z + 1 . K + 1) =T 

180 

PRINT 

RT Z,K;“ “ 

190 

PRINT 

RT Z-1,K;“ 


ET 


T ü 5 


T = 1 
T=2 


200 LET 2=Z-1 
210 COTÜ 150 


61 
















Glückspiel 


300 

l_ET 2=Z + 1 


1010 

PRINT PT Z + 1,K:"$‘' 

310 

PRINT PT Z-1,K 

... .. 

1011 

LET 0=0+1 

320 

PRINT hT Z.K;" 


1012 

PRINT PT 0,15;O 

330 

LET R(2 . K + l) =1 


1020 

LET 2=2+1 

34.0 

G OT ü 150 


1025 

IF P(2+2,K+l)=1 THEN GOTO 1 

500 

PRINT RT 2.K;'' 


000 


501 

LET 0=0+1 


1030 

G OT 0 6 3 5 

510 

LET P(2 + 1.. K + l) 

.= 1 

1100 

PRINT PT Z,K.;" " 

520 

LET piZ + l.. K+2) 

= 1 

1110 

PRINT PT Z,K + l;"$‘’ 

530 

LET PCZ + l.. K+3) 

= 1 

1120 

LET K=K+1 

550 

PRINT PT 2.K+l 

; " 

1121 

LET 0=0+1 

551 

FÜR U=1 TO 2 


1122 

PRINT PT 0,15;O 

5 52 

NEXT U 


1125 

IF K=31 THEN GOTO 2000 

er CT er 

PRINT PT 2.K+l 

... .. 

1130 

G OT Cf £■ 3 5 

556 

PRINT PT 2,K+2 


2000 

PRINT PT 21.0;"NOCH NPL DP5 

r er “7 

FOR Ü=1 TD 2 


OLE 

ICHE LPB'yRINTH '?" 

c; er 

NEXT Ui 


2221 

INPUT 1$ 

559 

PRINT PT 2,K+2 

.1. II 

2222 

PR INT RT s 1,0; "f:3l3EEEE3EIlX*3E 

560 

LET K=K+2 



570 

IF K=31 THEN G 

OTO 500 

irJ 2 2 3 

IF = THEN GOTO OOO 

560 

GOTO 150 


2300 

STOP 

600 

PPU6E 4E4 


2400 

5RUE "M.OI" 

610 

LET 2=1 


2500 

RUN 

611 

PRINT PT 0,15; 

"SOS" 



612 

PRINT PT 1,1;" 





Lex K=1 
LET 0=0 
PRINT hT 
IF pi:z.+ i 


TUEN GOTO 1 


6£:0 
6 3 0 

6 3 5 P R I NT hT' 0.15 0 
650 IF P i:Z.+ l .. K+2 j =1 
100 

655 IF P (Z + 2 .. K + 1) =1 THEN GOTO 1 
000 

650 PRINT RT 2 .. K; “ " 

661 PR IMT PT 2 -1 K ; “ 

662 PRINT PT O.15;0 
6 70 LET' O = O + 1 

660 LET 2=2-1 

661 IF PiZ.K+1■=1 
690 GOTO 635 

1000 PRINT PT 2.K.;‘ 


"HEM GOTO 660 



Climber 


Beschreibung des Programmes (10515 
Bytes) 

Leitern stehen einem Männchen zur 
Verfügung, um trotz Hindernissen in 
Form von Pfeilen und Sternen von 
einer Spielebene zur anderen zu 
gelangen. Insgesamt hat das Männ¬ 
chen drei Leben, die es dann ver¬ 
liert, wenn ihm ein Gegner zu nahe 
kommt oder es von einer Leiter oder 
Linie abweicht. Beim Erreichen ei¬ 


ner neuen Stufe bekommt man die 
verbliebene Zeit in Form von Punk¬ 
ten angerechnet; einen Bonus erhält 
man nach der siebten Stufe, worauf 
wieder die erste Stufe folgt. Wei¬ 
tere Punkte kann man durch Überfah¬ 
ren von $-Zeichen ergattern. Jedes 
Spiel ist zeitlich begrenzt. Um das 
Spiel schneller zu machen, wird die 
nötige Zeile LET Q=PEEK (PEEK 
16398+PEEK 16399*256) durch ein 
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Glückspiel 


Maschinenprogramm ersetzt.Dafür 

müssen beim Eintippen des Program¬ 
mes nach REM in der Programmzeile 1 
insgesamt mindestens zwölf belie¬ 
bige Zeichen folgen, in die nach 
RUN das Maschinenprogramm einge¬ 
schrieben wird. 

Die wichtigsten Variablen: 

A$ Beinhaltet den Maschinen-Code 
G$ Beinhaltet die Linien 


B Anzahl der Leben 
K Punkte 

A erste Koordinate des Männchens 
B zweite Koordinate des Männchens 
Q Summe der Felduntersuchung 
J Steuervariablen 
LE Level 

G=F Leitern-Malen 
W Verteidigersteuerung 
U Zeit 

Dirk Hellmann 


SCORE =0 


LEFT=3 

H-H 


o - 

-$$- 


$ - $ 


-$$- 

D - 

- ^ 


1 REM .. . . 1 . 

2 REM CLIMBER 


MQN D.HELLMhNN 


EUER CHIP-SPECIRL 

3 LET H$ = '’3fl0E406F3fi0F4-0674E0 
600C9’' 

4. LET hDR=:16514 

5 FÜR N=0 TO LEN R$-2 STEP 2 
5 POKE hDR + INT (N/2) , 16-± (CODE 
R$ iN + i) -23 J +CÜDE R$ (N+2:i -28 
7 NEXT N 

10 LET G$=“- 


20 LET T=3 
30 LET K.=0 
100 G ÜT Q 1000 
200 LET B=B+1 RND B<32 
210 PRINT RT R,B-1.; 

220 PRINT RT R,B+1; 

230 LET Q=:1J5R 16514 

235 LET .J = l 

240 IF 0=CCiDE THEN GOTO 270 

250 IF Q<>CODE THEN GOTO SO 

0 

260 RETURN 


270 

LET K=K+5 


230 

PRINT RT 0 

. 5; K 

290 

RETURN 


300 

LET R=:E:-1 

RND B>0 

318 

PRINT RT H 

B ; " * - " 

320 

PRINT RT H 

. 6 - 1. 

330 

LET G=U5R 

16514 

3 3 5 

LET ü=i 


340 

IF 0=CÜDE 

THEN GOTO 378 

350 

IF 0<>CuDE 

THEN GOTO SO 

360 

RETURN 


3 0 

LET K=K+5 


3 S 0 

PRINT RT 0 

j 6 i K. 

390 

RETURN 


4.00 

LET R=H-1 

RND R>0 

4 10 

PRINT RT R 

,B.: RT R + 1.. B. “ 

428 

PRINT RT H 

-l.B; 

430 

LET 0=U5R 

16514 

435 

LET U:::2 


440 

IF 0=CODE 

THEN GOTO 478 

450 

IF Q < >CODE 

THEN GOTO SO 

460 

RETURN 


4 70 

LET K=rC-f5 


4S0 

PRINT RT 0 

. 6; K 

490 

RETURN 


500 

LET R=R+1 

RND R<22 

510 

PRINT RT R 

. B ^ ' Li RT R - 1 .1 B .i “ 

520 

PRINT RT R 

+ 1.. 5; 

530 

LET Q=USR 

16514 

535 

LET J=2 


540 

IF Q=:CODE 

THEN GOTO 578 

550 

IF O < > C 0 D E 

“-*• THEN GOTO SO 

550 

RETURN 


570 

LET K=K+5 


580 

PRINT RT 0 

j 6, K 

590 

RETURN 


600 

IF INK.EY$ = 

■’S’* THEN G05UB 28 

{ 

610 

IF INKEY 

“5“ THEN GOSUB 30 
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690 

IF 

INKEY 1^=:“ 

7“ THEN GOSUB 

40 

630 

IF 

INKEY $ = ■’ 

6’* THEN GOSUB 

50 

640 

RETURN 



700 

IF 

J=1 THEN 

GÜSUB 910 


710 

IF 

J=:l THEN 

GÜSUB 310 


790 

IF 

ü=9 THEN 

GÜSUB 410 


730 

IF 

ü=9 THEN 

GOSUB 510 


740 

RETURN 




Ö00 FÜR F=0 TO 10 

§10 PRINT RT 

6S0 NEXT F 

§30 LET T=T-1 

84-0 IF T=0 THEN GOTO 900 

850 PRINT RT 0,31T 

S B' 0 G OT Q L. E 

900 CLS 


910 

PRINT RT 

8,6; 

‘’NüCHHhL 

( Sh /'Sl 

EIN) • 

• 




990 

IF INKEY 


THEN GOTO 

990 

930 

IF INKEY 


THEN RUN 


940 

STOP 




1000 

CLS 




1010 

LET LE=1000 




10S0 LET J=0 

1030 LET H=19 

1040 LET B=:30 

1050 PR INT RT 0,0, “ SCORE =: ” KRT 
0,28; ”LEFT = 'M T,RT 3,1:G$(1 Tü 30 
j , RT 7,9G $ i; 9 TÜ 22 ) ; RT 11 , 1, G $ i 
1 TÜ 30;i , RT 15,9.; G$ (9 Tü 22Ü ; RT 
19,1; G $ j 1 TO 31) RT 1,15; ‘'B-H” 
1060 PRINT RT 0,16; “; RT 2,15.; ' 
— “ ; RT 3 , IB«, "•”“.« RT 4 , IB'; “ ~ / , 

15; “ $$•*, RT 11,6, “ , RT 11,25., 

RT 15,15; " 

1070 FÜR G=2 Tü 20 

1080 PR INT RT G , 2 ; " - “ ; RT G .. 10 ; “ 

, RT G ,21, “ ; RT G , 29, ” 

1090 NEXT G 
1100 LET ü=:100 

1110 PRINT RT 0,19; ü: “B“ 

1120 FÜR U=0 TO 16 

1130 PR INT RT 19 -U , 10 , Ü “ , RT 20 - 
U, 10; RT 3+u,£ 1, RT 2+ Ul, 21 

1140 G05UB 600 
1150 GÜSUB 700 

1160 IF Ul<>7 THEN GOTO 1190 

1170 LET IJ=U-1 

1180 PRINT RT 0,20,U;‘’B“ 

1190 NEXT U 

1200 IF R=1 RND B=16 THEN GOTO 2 
000 

1210 LET ü=ü-l 

1220 PRINT RT 0,20,U;“B“ 


1230 FÜR U=G Tü 16 

1240 PRINT RT 3 f U , 10; " D, RT 2+U, 
10 , ” - “ ; RT 19 -U .,21; “ O “ ; RT 20 -U , .2 1 

* ■" 

1S50 GOSUB 600 
1260 GOSUB 700 

12 70 IF THEN GOTO 1300 

1280 LET U=U-1 

1290 PRINT RT 0,20 Uj ‘ 1'’ 

1300 NEXT I.-.I 

1310 LET U=U-1 

1320 PRINT RT 0,20 ; U“ ü" 

1330 IF U<=0 THEN GOTO 900 
1340 G 0 T' Ci 1 12 iS 
2000 CLS 

2010 LET LE“5000 
2020 LET R=:i9 
2030 LET B=:30 
2040 LET J=0 

20B:0 PRINT RT 0,0;^’5CüRE = ’‘,K,hT 
0,26, ■’LEFT = '* , T, RT 3,1, G $ i 1 TO 30 
:i,RT ll,i,G$rl Tü 30),RT 19:1;G$ 

f 1 TO 3i:i ; RT 1,15,; "ü-0" RT 0, 16, 
RT 2 16 , RT 3,16 RT 4 

, 16,; 

2060 PRINT RT 11,8 RT 1123, 

" $ " RT 19,16 , " $ " 

2070 FOR F=a TO 20 

2080 PRINT RT F 2 RT F,29;"-- 

2090 NEXT F 
2100 LET K=K+U 
2110 LET ij = 100 

2120 PRINT RT e,6;K,;RT 0,19.;"H'’, 
U.; -K" 

21.30 FOR U=0 TO 17 

2140 P RI NT RT 19 ~ U , 2 '' O " RT 20- U 
,2.;''-"jflT 3+U , 29.; "S" RT 2+W,:29, '■ 

2150 GOSUB 600 
2160 GOSUB 700 

2170 IF U-;. .v7 THEN GOTO 220© 

2180 LET U=U-1 

2190 PRINT RT O , 20 U" 

2200 NEXT U 

2210 LET U=U-1 

2220 PR INT RT O , 20 U .“l" 

2230 IF fl-1 RND E=16 THEN GOTO 3 
000 

2240 FOR U~0 TO 17 

2250 PRINT RT 3+ U , 2"B ' RT 2+!-.i,2 
. . pij. .j_g _ |_| , .29 , " B " RT 20 -U 29 j " 

S2B<0 GÜ:5UB= S00 
9970 GÜB.UBi 700 

9980 IF U<>7 THEN GOTO 9310 
9990 LET U=U-1 
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2300 

PRINT RT 0,20.; ü; “■** 


3550 LET K=K+Lt 

2310 

NEXT U 


3560 PRINT RT O , O;“SCORE = “, K.: RT 

2320 

LET IJ=U-1 


0,26; “LEFT = “;T; RT 1,15; “iS-B“, RT 

2330 

PRINT RT 0 20; U; “H“ 


4 , y; i_r $ (y T u 9 3 J ; RT y , y .; y $ i, y r 0 y 

2340 

IF R=1 RND B=i5 THEN 

GOTO 3 

3),RT 14,9; G$ (9 TO 23);hT 19.. l.;G 

000 



$(1 TO 31):RT 4,10, '' $ ‘; RT 4,22;“ 

2350 

IF U<=:0 THEN GOTO 900 


$“;RT 9,10;“;RT 9,22;“$“,hT 14 

2360 

GOTO 2130 


,10; “ $ ‘; »H r 14 , y y.; '' $ “ 

3000 

LET LE=3000 


3570 FÜR F=0 TO 20 

3010 

CLS 


3580 PRINT RT F,16,“-“ 

3020 

LET R=19 


3590 NEXT F 

3030 

LET B=30 


3600 LET U=100 

3040 

LET 0=0 


3610 PRINT RT O , 20; ; Ü 

3050 

PR INT RT 0,16- ’• ; RT 

1,15, '• 

3620 FÜR U=0 TÜ 15 


RT 2,16.; RT 3., 16.;“ 

: RT 

3630 PRINT RT 4+U, 16; “S“ , RT 3+U, 

4,16 

;“-“;RT O,O; “5C0RE = “ ; K 

; RT 0 , 

16; “ , RT 19,23-W; “ 

26 j ■' LEFT = ; T, hT 3,12G $ i 12 

TO 19 

3640 G05UB 600 

i RT 

7,12.G$(12 TO 19.1 .;RT 

11,7;G 

3650 GOSUB 700 

$(7 TO 24}jRT 19.1;G$(1 TO 

31) : R 

3660 NEXT U 

T 7. 

15;”$$“.. RT 15.. 8>“$‘3hT 

15,23 

3670 LET iJ=U-l 


RT 19.. 2; 


3680 PRINT RT 0,21;ü;"l“ 

3060 

FÜR F=0 TO 10 


3690 IF R=1 RND B=16 THEN GOTO 4 

3070 

PR INT RT 2 +F .. 13, “ - “ , RT 2 f F , 

000 

18; •' 

; RT 10+F , 8; “ : RT iO+F .. 23; 

3700 FÜR 1.1 = 0 TO 15 

*• 



3710 PRINT RT 19 ~U , 16 ; “Sl“ ; RT 20- 

30S0 

NEXT F 


U,16,RT 19,8+U; 

3090 

PRINT RT 15 .. 8; “ RT 

15,23, 

3720 GOSUB 600 




3730 GOSUB 700 

3100 

LET K=:Kfü 


3740 NEXT U 

3110 

LET ü=100 


3750 LET U=U-1 

3120 

PR INT RT 0,6K, RT 0,19 ; 

3760 PRINT RT 0,21,U.;“H“ 

U.. ■•H 



3770 IF R=1 RND B=16 THEN GOTO 4 

3130 

FÜR U=:0 Tü 15 


000 

3140 

PRINT RT 11,7+0; 


3780 IF U:=0 THEN GOTO 900 

3150 

G03iJB 600 


3790 GOTO 3620 

3160 

G08UB 700 


4000 LET LE=4000 

3170 

NEXT U 


4010 CLS 

3180 

LET IJ=:U-1 


4020 LET h=19 

3190 

PRINT RT 0,20.;U;*’B“ 


4030 LET B=30 

3200 

IF R~1 RND E=16 THEN 

GOTO 3 

4040 LET J=0 

500 



4050 PRINT RT 0,0; “ SCORE. = “ ; K .; RT 

3210 

Für U=0 TO 15 


0,26; “LEFT = “ ; T; RT O , 16RT 1, 

3220 

PRINT RT 11,23-U, “ 


15, ’S-B“;RT 2,16;“-“,RT 3,16;“-“ 

3230 

G03U6 600 


RT 4,16;“- “ .; RT 2,1.; G $ ( 1 TO 18 ) , 

3240 

G0-5UB 7010 


RT 7,1.; G $ i 1 TO 26 ) ; RT 12,1.; G $ ( 1 

3 250 

NEXT U 


TO 26) ;RT 17,1; G $ (1 TD 26 j ; RT 19 

3260 

LET Ü=U-1 


, 24; G$ (24 Tü 31) 

3270 

PRINT RT 0,20; U ' If ' 


4060 FÜR F=5 TO 19 

3280 

IF R=i RND B=I3 THEN 

GOTO 3 

4070 PRINT RT F,iO;“-“,RT F,19,“ 

500 



RT F,25.; 

3290 

IF U<=0 THEN GOTO 900 


4080 NEXT* F 

3300. 

GOTO 3130 


4090 FÜR F=1 TO 20 

3500 

CLS 


4100 PRINT RT F,l;“-“ 

35 10 

LET LE=3500 


4110 NEXT F 

3520 

LET R=19 


4120 PRINT RT 9,10,“$“;hT 9..19,“ 

3530 

LET B=30 


$“ , RT 14,10; “ , RT 14,19.; “ 

3540 

LET 0=0 


4130 LET K=K+U 
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4-135 LET U=:100 

414-0 PRINT RT 0,20‘’H "ü; 

4-150 FÜR u=0 TO 20 

4160 PRINT RT 7,3+U; “-0'* ; RT 12,2 
4-U.: ■•0-".; RT 17,3+U.; “-0'* 

4170 G05UB 600 
4160 GOSUB 700 

4190 IF g<>10 THEN GOTO 4220 

4200 LET U=U-1 

4210 PRINT RT 0,21;U,“B‘ 

4220 NEXT y 

4230 LET Ü=:LI-1 

4240 PRINT RT 0,20,iJ,‘B" 

4250 IF H=1 RND 6=16 THEN GOTO 5 
000 

4260 FÜR y=0 TO 20 

4270 PRINT RT 7,24-y, ‘'H-” ; RT 12, 
3+y, ■•-0",RT 17,24-y; "B-“ 

4260 GÜ5UB 600 
4290 G05UB 700 

4300 IF y<>10 THEN GOTO 4330 

4310 LET U=U--1 

4320 PRINT RT 0,20,Uj'’B“ 

4330 NEXT y 

4340 LET U=U-1 

4350 PRINT RT O , 20U; 

4360 IF R=1 RND B=16 THEN GOTO 5 
000 

4370 IF R :;=0 THEN GOTO 900 

4360 GÜTÜ 4150 

5000 LET LE=5000 

5010 CLB 

5020 LET H=19 

5030 LET B=30 

5040 LET .J=0 

5050 PRINT RT O , 0, ” 5CÜRE = “, K., RT 

0,26, ■’LEFT = ‘* ; T.; RT 1,15 : , RT 

4,13;G$(13 TO 19).RT 6,13;G$(13 
TO 19 j RT 6,13; G$ i 13 TO 19) RT 1 
1,1; G $ (1 TG 31) ; RT 19,1; G $ f1 TO 
31) ;RT 15,7;G $ i 7 TO 13) ;RT 15,19 
.;G$«;i9 TO 25;i.;RT 15,27, G$ (27 TO 

31) 

5060 FÜR F=10 TO 20 

5070 PRINT RT F,2;“-*’,RT F,10;’‘- 
“ .i RT F , L'2 ; ‘R 1 F , 30 , " — *‘ 

5060 NEXT F 

5090 FÜR F=0 TO 12 

5100 PRINT RT F,i6;“-'* 

5110 NEXT F 

5120 PR INT RT 11,6 RT 11,26 : 

RT 13,2; RT 13 , lO; “ RT 

13,22; RT 13,30, 

5130 LET K=K+U 
5140 PRINT RT 0,6,K 
5150 LET U=100 

5160 PRINT RT O , 20 j '‘B*'; U ; •’B“ 


5170 FÜR y=0 TO 6 

5160 PRINT RT 4,12+y; , RT 6,1 

9-y, "B-“ RT 6,12+y; “-B’'; RT 15,0 + 
(y /2 ) ; •' *0" ; RT 15,6 +y, -0“ RT 15 , 

16+y; “•-0".:RT 15,26+ (y/2:i “-0" 

5190 G05UB 600 
5203 GOSUB 700 
5210 NEXT y 


5220 LET U=U-1 

5230 PRINT RT 3,21, U; ' 

5240 IF R=1 RND B=16 THEN GOTO 6 
000 

5250 FÜR y=0 TO 6 

5260 PRINT RT 4,19-14; “B-*' , RT 6,1 
2+y; -0''; RT 6,19-y , ‘'H-“ ; RT 15,5- 

(y/2) "B-*’; RT 15,13-Ul; RT 15 

,24-y, ' B-“, RT 15,30- (y/2:i ; ’B-’* 
5270 G05ÜB 600 
5260 G05ÜB 700 
5290 NEXT y 

5300 IF R=1 RND B=16 THEN GOTO 6 
000 

5310 LET Ü=U-1 

5320 IF ü<=0 THEN GÜTÜ 903 

5330 PRINT RT 0,21;U;"S' 

5340 GOTO 5170 

6000 LET LE=6000 

6010 CLS 

6020 LET R=19 

6030 LET B=30 

6040 LET J=0 

6050 FÜR F=0 TO 21 

6060 PRINT G$(l TO 31) 

6070 NEXT F 

6075 PRINT RT O , OSCORE = *'; K, RT 

0,26; "LEFT = '‘ , T 

6060 LET U=100 

6090 PRINT RT 0,20, “B'L ü, 

6100 PRINT RT 1,15: 

6110 LET 2=INT (RND^19)+2 
6120 LET X=INT (RND+26) 

6X30 RRINT RT 

5140 GÜ5UB 600 

6150 GOSUS 700 

6160 LET U=Ü-1 

6170 PRINT RT 0,21;U;‘‘1'‘ 

6160 IF R=1 RND B=i6 THEN GOTO 7 
000 


6190 GOTO 6110 
7000 CL5 
7010 PRINT 

üsa= 

aawiMBM 






GESCHRPT 




70213 LET K=K+Sa0 


7030 PRINT "RIJF ein NEUE 
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Pt ' ‘ 




HEN 

DEM 

RUSGRNG ^ gl BR IN 

704.0 

PRINT 

, , ‘ = Th5TE 

DRUECK5N" 

GEN DRNM 

ETURS fJRRTEN UND DRN 

7045 

PflIJSE 

453 


N DIE 

NRECHSTE STUFE SChRF 

7050 

GOTO 

1000 


FEN Ü.5.U. 

P . 5 

. EINIGE HRBEN ET 

7050 

5TÜP 



URS DRGEGEN 


UND STOEREN DIC 

7070 

3H‘JE 

•■CLIMBESJ’* 


H. " 



7080 

CLS 



7100 PRINT 

.« .» .« j 

, , "TRSTE DRUECKEN 

7090 

PRINT 

"DU NÜST 

MIT den THst 




EN 


5 - 6 - 

7 - 8 DEIN 

7110 PRUSE 

4E3 


MRENCHEN -S- 

RUF DER 

DIENEN ZUISO 

7120 RUN 




Luna 


Beschreibung des Programmes (3500 
Bytes) 

Einen "einarmigen Bandit" simuliert 
dieses Programm. Versuchen Sie Ihr 
Glück, indem Sie sich bemühen. 



1 RE.'M MINDESTENS 3S1 BELIEBIG 
E SEICHEN 

2 PEN uUNh 


UON H.HENKEL 


F U £ R C HIP - S P E CIH L 
10 PRINT "-LUNR-- 


15 P R I NT “ D IE S E S P R O G R Pi M M 5 I 
f-S U L IE RT E1N E N ‘ ' EIN R R M IG E N B R N D I 
TEN“ ' . ‘JERSUCHEN“ . 

•20 PRINT "3 IE, MOEGLICHST UIEL 
GELD ZÜ GE-WINNEN. SIE BEGINNEN 


möglichst viel Geld zu gewinnen. 
Ihr Startkapital sind 20 Jetons. 
Jedes Spiel kostet eine Münze. 
Alles andere wird während des 
Spiels erklärt. 

Alexander Henkel 

MIT 20 JE-“, 

25 P RINT ‘ ■ T ON S. üE D E S SPIE L 
K,OST'ET EINEMUENZE . DURCH DRUEC 
KEN RUF all“, 

3 0 P RINT "ST Ü PPE N SIE DI£ U fl 
L Z E N. ZEIGE NDIE UR LZ EN NHC H EINH N 
DER GLEICHE“; 

3 5 P RI NT • ■ :5Y M B O L E , 3 O G E U IN N E N 
5IE D E N E NT-3 P R E C H E N D E N B ET R R G.B 
ESITZEN SIE“; 

3S PRINT “1.000 JETONS, SO IST 
DER RUTOMRTLEER.“ 

4.0 P R I NT , , “ J ET ZT D R U E C K E N S I 
E BITTE EINEThSTE.“ 

‘ 4.5 IF INKE-v$ = ““ THEN GOTO 45 

50 CLS 


£r er 
•_* 

LET 

JE =20 

60 

DIM 

ROi (5 j 3 j 

•64 

L EI¬ 

R$ ( 1) 

65 

LET 

R$ =" U 

68 

LET 

H$ (3J = ‘ $$$ 

69 

LET 

.R$ (4:i ="a“™B 

70 

LET 

R$ (5) = "j.IsK 

80 

DIM 

H ( 5 3) 

81 

LET 

R t1,1j =0 

82 

LET 

R(1,2j =5 

83 

L EI¬ 

H ( 1 3) =10» 

84 

LET 

H i 2 1 ? =0 

85 

LET 

H », ü .« c!.» = 7 

86 

LET 

H i;2.3) =15 

87 

L EI¬ 

R (3,1) =0 

88 

LET 

R(3,2j =10 

89 

LET 

R(3,3)=20 
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90 LET Rr:4.,l)=0 

91 LET P (4. =10 

99 LET R { 1 , 3:1 =90 
93 LET Hi:5,1:j=5 
94 . LET R (5,2) =90 
95 LET Rf:5,3)=200 
99 PuKE 16413,0 

100 PRINT 


110 PRINT 


190 FÜR 1=1 TO 11 
130 PRINT “Bi 

I 

140 NEXT I 

150 FÜR 1=1 TO 11 

160 PRINT "BBBB 


170 NEXT I 
180 PRINT RT 


190 FOR 1=1 TO 3 

900 PRINT TR6 1, ‘Ü M 

910 NEXT I 

920 PRINT TRB 1; ’‘ 

J 0 P R I !’■•; T H T ’ji 9 LN " HBB *' 

940 PRINT ThE 99; “BB'^ 

950 PRINT TRB 99: “MB“ 

960 FOR 1=1 TO 10 
970 PRINT TRB 93:“S“ 


980 

NEXT 

I 

990 

PRINT 

TRB 91; 

300 

PR INT 

TRB 91, 

310 

PRINT 

TRB 91; 

315 

PRINT 

RT 14,1 

3£0 

PRINT 

RT 16,1 




9; “y ,TRB 13, “@“,TPB 17, “®' 

595 PRINT TRB 1, “ 


330 

PRINT "IBS 

K 'ThB 

9 , "S" 

; TRB 

13; 

"EI",.ThB 16; 




340 

PRINT "m 

" i" , ThB 

9, "H ' 

, TRB 

13; 

"S";TfiB 16, 

"0@" 



350 

PR INT ; The 

y, "E ' 

, TRB 

12, ' 

‘‘SE'TThB 16 




360 

PRINT ' IBP««®" ThB 

9 , "E" 

, TRB 

12; 

‘'0E!'TTRB 16 

; “gEl“ 



370 

PRINT "Mi] 

EE“, ThB 

9; 

; TRB 

19; ’ 

"HS";TRB 15 

"SEE" 




330 

PRINT 

RT 

13,94;“JET 

390 

RR INT 

RT 

19,24,JE;“ 

399 

LET JE 

= JE 

-1 

394 

PRINT 

RT 

19,24;JE;“ 

396 

PRINT 

RT 

21,24; “ 


398 PR INT RT 99,94 .: “ 

400 LET MhS=U5R 15514 
410 DIM 0$(3,3) 

490 LET c$i:i:j=chr$ PEEK 
HR$ PEEK 16711+CHR$ PEEK 
430 LET C$(9}=CHR$ PEEK 
HR$ PEEK 16775+CHR$ PEEK 
440 LET C$i:3)=CHR$ PEEK 
HR$ PEEK 16839+C:HR$ PEEK 
450 FOR 1=1 TO 5 

IF H$ ( I) =0$ ( 1) 


460 

) 

470 
40 
490 
500 
^0 

510 


16710+0 
16719 
16774+C 
16776 
16838 +C 
16840 


THEN GOTO 48 


NEXT I 
LET K=1 
FOR J=9 TO 3 
IF 0$ {J-t < :>C:$ 1 : 1) 


THEN GOTO 5 


LET K=K+1 
590 NEXT J 

550 LET g=ri;i,k:i 

PRINT RT 91,94, “GEUINN ; 

P R 1 NT hT 99,94jL7 
LET JE=JE+G 

IF JE<1000 THEN GOTO 690 
PRINT RT 1,0,“DER RUTüMRT 


560 
570 
580 
590 
600 

I:8T LEER“ 

605 PRINT 

610 GOTO G00 
690 IF JE>0 THEN 
630 PRINT RT 1,0 
HT5 MEHR“ 

640 PRINT RT 1.0 


RT 1, o, 


JÜTC 
■•5 IE 


550 

HRBEN 


SIE HRBEN 


N IC 


UHä 


SaglBaEiSS ' 

64 5 G 0 T 0 

630 

650 

FOR I 

= 1 T 

660 

NEXT 

I 

6 70 

G Ci T 0 

3S0 

'9 900 

PRINT 

ThB 

9901 

PRINT 

ThB 

9902 

PRINT 

ThB 

9 9 0 3 

PR INT 

TRB 

9904 

PRINT 

TRB 

9905 

PRINT 

TRB 

9 9 01- 

PRINT 

TRB 

e '' 

990 7 

PRINT 

TRB 

m •• 

9908 

PR INT 

TRB 

m •' 

y 9 0 

PRINT 

TRB 

S •> 

9910 

PRINT 

TRB 

B <• 

99 11 

PRINT 

TRB 
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99 12 PRINT TPB 1; 


9913 PRINT ThB 0;“ 


9914 PRINT ThB 0.; 



997B SCROL.L 

9976 PRINT “UERDEN.” 


ADRESSE BYTES 


9915 


16514 

62 

4 

50 

51 

65 

_ “ 


16519 

62 

0 

50 

52 

65 

9916 

PRINT ■' SSINCLhIR ZXSli '' 

16524 

58 

51 

65 

61 

200 

9917 


16529 

61 

202 

171 

64 

61 

9916 

PRINT hT 15., 17;”H_ HENKEL” 

16534 

202 

162 

64 

1 

103 

9920 

PRINT RT 14,17,; ” PRRESENT lER 

16539 

0 

17 

64 

65 

205 

T ; *• 


16544 

232 

64 

1 

109 

0 

9951 

FÜR 1=16 TO 50 

16549 

17 

128 

65 

205 

232 

9955 

PR INT hT I 0 ; 

16554 

64 

1 

115 

0 

17 

«w 


16559 

192 

65 

205 

232 

64 

9953 

NEXT I 

16564 

42 

37 

64 

1 

1 

9954 

PRINT RT 18 , IS.: "aOMSffis]'' RT 

16569 

0 

237 

74 

218 

213 

19. ; 


16574 

64 

58 

52 

65 

61 

9955 

PR INT RT 51,0 ; "BBB ITT E E IN 

16579 

194 

218 

64 

62 

0 

E TASTE DRüECKENfflna*’ 

165S4 

50 

52 

65 

58 

51 

9956 

CLEHR 

16589 

65 

61 

50 

51 

65 

y y 5 / 

SRUE “13“ 

16594 

195 

218 

64 

62 

1 

9956 

IF INKEY$=““ THEN GOTO 99SS 

16599 

50 

52 

65 

33 

0 

9959 

CLS 

16604 

251 

1 

1 

0 

237 

9930 

RUN 

16609 

74 

194 

224 

64 

195 

9950 


16614 

140 

64 

42 

12 

64 



16619 

9 

26 

119 

35 

19 



16624 

26 

119 

35 

19 

26 



16629 

119 

1 

130 

0 

9 

9951 

SCROLL 

16634 

19 

26 

119 

35 

19 

9955 

PRINT “ADRESSE: BYTES:“ 

16639 

26 

119 

35 

19 

26 

9953 

SCROLL 

16644 

119 

1 

130 

0 

9 

9954 

PRINT “- -■' 

16649 

19 

26 

119 

35 

19 

9955 

SCROLL 

16654 

26 

119 

35 

19 

26 

9956 

PR INT 

16659 

119 

98 

107 

1 

51 

9957 

SCROLL 

16664 

0 

9 

84 

93 

19 

9958 

FÜR Z=15514 TO 16895 

16669 

19 

19 

1 

60 

0 

9959 

PRINT Z,i 

16674 

237 

184 

1 

63 

0 

9960 

INPUT BYTE 

16679 

9 

126 

18 

43 

27 

996 1 

POKE Z,BYTE 

16684 

126 

18 

43 

27 

126 

9965 

PRINT Th3 13;PEEK Z 

16689 

18 

201 

1 

0 

0 

9963 

SCROLL 

16694 

0 

0 

0 

0 

0 

9964 

NEXT Z 

16699 

0 

0 

0 

0 

0 

9965 

SCROLL 

16704 

167 

166 

183 

18 

22 

9966 

5CROLL. 

16709 

19 

1 

131 

5 

6 

996 7 

P R I h\ T' ” D IE H C - E IN L E S E - R 0 U T' I 

16714 

3 

134 

18 

22 

19 

NE KhNN NUN“ 

16719 

133 

131 

5 

18 

22 

y966 

5CRQLL 

16724 

19 

167 

166 

183 

6 

996 9 

PRINT "GELÜESCHT UERDEN-” 

16729 

3 

134 

18 

22 

19 

9970 

5CRQLL 

16734 

133 

131 

5 

13 

13 

99 7 1 

SCROLL 

16739 

13 

18 

22 

19 

13 

9 9 7' 5 

PRINT ’'UOR dem ERSTEN START 

16744 

13 

13 

18 

22 

19 

SOLLTE 

16749 

6 

3 

134 

18 

22 

9973 

SCROLL 

16754 

19 

133 

131 

5 

18 

9974 

PRINT “PRÜGRRhM JEGOCh RBGE 

16759 

22 

19 

13 

13 

13 

SPEICHERT” 

16764 

167 

166 

183 

0 

133 
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16769 

131 

5 

167 

166 

183 

16774 

18 

22 

19 

133 

131 

16779 

5 

18 

22 

19 

6 

16784 

3 

134 

133 

131 

5 

16789 

18 

22 

19 

6 

3 

16794 

134 

18 

22 

19 

13 

16799 

13 

13 

18 

22 

19 

16804 

167 

166 

183 

18 

22 

16809 

19 

13 

13 

13 

6 

16814 

3 

134 

18 

22 

19 

16819 

133 

131 

5 

13 

13 

16824 

13 

18 


19 

133 

16829 

131 

5 

0 

13 

13 


16834 

13 

18 

22 

19 

6 

16839 

T 

134 

18 


19 

16844 

13 

13 

13 

18 


16849 

19 

133 

131 

5 

167 

16854 

166 

183 

18 


19 

16859 

13 

13 

13 

133 

131 

16864 

5 

18 

OO 

19 

6 

16869 

“T 

134 

18 

22; 

19 

16874 

133 

131 

5 

167 

166 

16879 

183 

18 

22 

19 

133 

16884 

131 

5 

6 

3 

134 

16889 

18 

22 

19 

13 

13 

16894 

13 

0 

27 

27 

27 


Knufli 


Beschreibung des Programmes (8000 
Bytes, Druckeranschluß möglich) 

Bis zu fünf Personen können hier 
mitspielen. Das Programm ersetzt 
die Würfel und den KNUFFI-Spiel- 
block. Nach dem Starten des Pro¬ 
grammes mit RUN fragt der ZX-81 
nach der Anzahl der Spieler und 
nach der gewünschten Anzahl der 
Spiele. Die Eingabe erfolgt mit 
"INKEY$", man braucht also nach der 
Eingabe nicht "NEW LINE" drücken. 
Danach gibt man die Namen der Spie¬ 
ler ein. Als Name können bis zu 21 
Zeichen eingegeben werden. Sind 
alle Namen eingegeben, erscheint 
auf dem Bildschirm eine Tabelle wie 
auf einem Spielblock. Die fünf 
Würfel werden als inverse Zahlen 
dargestellt. Bei mehr als einem 
Spieler steht darüber der Name des 
Spielers, der an der Reihe ist und 
seine Spieler-Nummer. 

Der Aufbau der Tabelle entspricht 
der auf einem Spielblock, mit der 
Ausnahme, daß die Punkte aller 
Spieler zusammen auf einer Tabelle 
dargestellt sind. Wenn die fünf 
Würfel auf dem Bildschirm ausge¬ 
druckt sind, haben Sie noch zweimal 
die Möglichkeit, mit allen oder 
einzelnen Würfeln einen erneuten 
Wurf zu machen. Mit zwei Eingaben 
teilen Sie dem ZX-81 mit, welche 
Würfel noch einmal geworfen werden 
sollen. Der erste Würfel von links 
hat die Nummer 1, der rechte die 


Nummer 5. Wenn zum Beispiel der 
linke, der mittlere und der rechte 
Würfel noch einmal geworfen werden 
sollen, geben Sie ein; "135". Wenn 
keine Zahl neu gewürfelt werden 
soll, geben Sie nur "NEW LINE" ein. 
Nach diesen zwei Eingaben fragt der 
Computer, ob Sie die gewürfelten 
Punkte in eine Zeile der Tabelle 
eintragen wollen oder ob Sie die 
Zeile streichen wollen. Einträgen 
können Sie in den oberen Teil der 
Tabelle (ler-6er), wenn Sie die 
betreffende Zahl mindestens mit 
einem Würfel geworfen haben. Wenn 
Sie also zum Beispiel mindestens 
eine "5" geworfen haben, können Sie 
diese in die Zeile "Ser" eintragen. 
Jede geworfene 5 zählt; wenn Sie 
also 3-mal eine 5 geworfen haben, 
ergibt das 15 Punkte in der Zeile 
"Ser", ganz gleich, welchen Wert 
die beiden anderen Würfel haben. 
Wenn Sie bei den Zeilen "1er" bis 
"6er" zusammen mehr als 62 Punkte 
erreicht haben, bekommen Sie einen 
zusätzlichen Bonus von 35 Punkten. 
Die in dem oberen Teil der Tabelle 
erreichten Punkte und der Bonus 
werden in der Zeile "GES.+BONüS" 
angezeigt. Wenn Sie in den Zeilen 
Dreier- und Viererpasch eintragen 
wollen, müssen Sie drei beziehungs¬ 
weise vier gleiche Zahlen gewürfelt 
haben. In diesen beiden Zeilen wird 
die Summe der Zahlen aller fünf 
Würfel eingetragen. Eine kleine 
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"Straße" besteht aus den Zahlen 
1,2,3,4 oder 2,3,4,5 oder 3,4,5,6. 
Die Würfel müssen selbstverständ¬ 
lich nicht in dieser Reihenfolge 
liegen. Eine "Große Straße" besteht 
aus den Zahlen 1,2,3,4,5 oder 
2,3,4,5,6. Für eine kleine Straße 
gibt es 30 Punkte, für eine große 
Straße 40 Punkte. 

In "Knuffi" können Sie eintragen, 
wenn Sie fünf gleiche Zahlen gewür¬ 
felt haben. Ein "KNUFFI" gibt 50 
Punkte. Wenn Sie während eines 
Spieles einen weiteren "KNUFFI" 
werfen, werden zu Ihrer Endsumme 
automatisch 100 Punkte addiert. 

Das Einträgen der gewürfelten Zah¬ 
len in "CHANCE" ist an keine Bedin¬ 
gung gebunden. Dort wird die Summe 
der fünf Zahlen eingetragen. Sie 
dürfen nur einmal in jede Zeile 
eintragen. Wenn Sie die gewürfelten 
Zahlen in keiner Weise eintragen 
können, dann müssen Sie eine Zeile 
Ihrer Wahl streichen. In einer 
gestrichenen Zeile können keine 
Punkte mehr eingetragen werden. 
Alle Berechnungen werden vom Compu¬ 
ter ausgeführt. Nachdem Sie die 
Taste "E" (wenn Sie eintragen wol¬ 
len) beziehungsweise "S" (wenn Sie 
etwas streichen wollen) gedrückt 
haben, fragt der Computer, in wel¬ 
che Zeile Sie eintragen wollen bzw. 
welche Zeile Sie streichen wollen. 
Sie geben dann die Bezeichnung der 
Zeile ein, zum Beispiel "KNUFFI". 


Es genügt aber, wenn Sie die ersten 
beiden Buchstaben eingeben, also 
nur "KN". Wenn Sie bei der vorher¬ 
gehenden Eingabe versehentlich "S" 
gedrückt haben, obwohl Sie eintra¬ 
gen wollen, oder umgekehrt, dann 
können Sie das korrigieren, indem 
Sie anstelle der Bezeichnung "C" 
eingeben. Nach dieser Eingabe ist 
der nächste Spieler an der Reihe. 
Wenn alle Spieler in Ihrer Spalte 
alles ausgefüllt haben, fragt der 
Computer, ob die Tabelle mit einem 
Drucker ausgedruckt werden soll. 
Wenn Sie eine Kopie wollen, tippen 
Sie "J", sonst "N". Danach beginnt 
ein neues Spiel. Wenn das letzte 
Spiel zu Ende ist, druckt der Com¬ 
puter die Gesamtpunkte von allen 
Runden auf dem Bildschirm aus und 
die Summe der Gesamtpunkte aller 
Spiele für jeden Spieler. Bei weni¬ 
ger Spielen oder weniger Spielern 
wird die Aufstellung der Punkte 
entsprechend kleiner. Wenn Sie min¬ 
destens bei einem Spiel die Tabelle 
mit dem Drucker ausgedruckt haben, 
wird auch diese Aufstellung der 
Gesamtpunkte ausgedruckt. Wenn Sie 
keinen Drucker haben, können Sie 
die Zeilen 55, 1401, 1402, 1403, 
1404, 1405, 1406, 1640, 1644, und 
1648 des Listings weglassen. Mit 
"RUN 2000" wird das Programm auf 
Kassette aufgenommen. Danach star¬ 
tet sich das Programm automatisch. 

Stefan Burkert 


.1 REM KNIJFPI 


UÜN S.BURKERT 


FL'ER CH TO _5pe:c IRL 


lER i¥ll 

2ER 

3ER tggg 
4-ER gggl 
SER 

6ER BEH 
GES.+BONUS 


> -güg -g!^ 


0 - 


DREIERPflSCH > 


UIERERPRSCH > 
FULL-HOU5E > 
KL.STRASSE > 
GR.STRASSE > 
Knuffi 

CHHNCk > 


ENDSUMME > 
BUNNY 



i: SP 


2 ) 


g| @ S] § @ 



40 RETURN 
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50 GÜSUB 30 
55 LET D$=“” 

60 PRINT ,,“UIE UIELE SPIELER? 
1 S 3 45" 

70 LET SP=CODE INKEY$-26 
60 IF SP<1 OR SP>5 THEN GOTO 7 

0 

90 PRINT hT 2,17+2+:5P, iI:HR$ (5P 
+ 156:i 

95 DIM N$(5P,2i:» 

100 PRINT ,,‘'UIIE UIELE SPIELE? 
12345 6 " 

110 IF INKEY$<>"'‘ THEN GOTO 110 
120 LET fiNZ=CODE INKEY$-26 
130 IF RN2<1 ÜR hNZ >6 THEN GOTO 
120 

140 PRINT hT 4,17+2+hNZ.: CHR$ (h 
NZ + 156:i 


144 
RME" 
TRB 

145 

146 
B.; ’■ : 
+ 10 , 

147 
146 
150 

N" 


PRINT ,,,,,,"BITTE SPIELERN 
, "N" RND SP>1.; " EINGEBEN: " , , 
0 ; 

FÜR B=1 TO SP 

PRINT hT B + 10,0, "SPIELER ** ; 

'Y HT B 

11 ; 

INPUT N$(B;i 
PRINT N$(B;i 
PRINT RT 21,0.i 


"RICHTIG 


151 LET R$ = INKEY $ 

152 IF R$<>"J" RND R$<>"N" THEN 
GOTO 151 

153 PRINT RT 21,0:" 

155 IF fi$="N" THEN GOTO 146 
157 NEXT B 

156 DIM E(RNZ,SP:i 
160 CLS 

170 FOR Z=1 TO RNZ 
160 DIM KiSP) 

190 DIM Pi:SP,14:i 

200 PRINT TRB 11 ,"> asH 


210 F O P N = 1F; 7 T 162 
220 PRINT CHR$ (N-126:i;"ER ";C 

HR $ N ; CHR $ N CHR $ N 
230 NEXT N 

240 PRINT "GES.+BONUS" 

250 PRINT , , "DREIERPRSCH" , "UIE 
RERPRSCH",,"FULL-HOUSE",,"KL.STR 
RSSE",,"GR.STRRSSE",,"KNIFFEL",, 
"CHRNCE",,,,"ENDSUMME” 

260 FOR N=1 TO 17 
270 PRINT RT N,ll,"> 


260 NEXT N 

290 PRINT RT 6,0,"- 


;RT 16,0;"- 


16,0;"■ 
(Z+156) 
300 FOR 


o 


R=1 TO 13 


" , RT 
CHR$ 


310 FOR N=1 TO SP 

320 IF SP:^1 THEN PRINT RT 19,0, 
N$ (n:i ; " (SP " ; N, " j " 

330 PRINT RT 20,12," "; 

RT 20,12; 

340 DIM Ui(5:i 


350 FOR Ul = l TO 5 


360 LET UM;UI:i =INT (RND* 6 :i+l 

370 PRINT CHR$ ( 156+U (Uj ü ; " "; 

380 NEXT Ul 

390 FOR R=1 TO 2 

400 INPUT R$ 

410 IF LEN R$>5 THEN GOTO 400 
420 FOR B=1 TO LEN R$ 

430 IF R$(B:i<"1" OR R$(B;i>"5" T 
HEN GOTO 400 


440 NEXT B 


460 IF H$="" THEN GOTO 550 
470 FOR B=1 TO LEN R$ 

460 PRINT RT 20,10+URL R$(B:i*2; 


490 NEXT B 

500 FOR B=1 TO LEN R$ 

510 LET Ul (URL R$ (B> ü =INT (RND *6 
j +1 

520 PRINT RT 20,10+URL R$(B:i+ 2; 
CHR$ (156+UI(URL fl$(B:»);i 
530 NEXT B 
540 NEXT R 
550 DIM X( 6 J 
560 FOR B=1 TO 5 
570 LET X (Ul (B) :» =X (U (Bi ) +1 
560 NEXT B 

590 IF P(N,13:i>0 RND (X(l)=:5 OR 
X ( 2 = 5 O R X ( 3 ) =5 O R X ( 4 j = 5 O R X 
(51=5 OR X( 6 )=5) THEN LET K(N)=K 
(N;i +100 

600 PRINT RT 21,0;"EINTRRGEN(El 
ODER STREICHEN(S)?" 

610 LET 5=CODE INKEY $ 

620 IF S < > C ODE ■ * E " fl \ q 3 < > q q jr> ^ 
"S" THEN GOTO 610 
630 PRINT RT 21,0, "UO EINTRRGEN 
? " RND S=GODE "E";"UIRS STREICHE 
N?" RND S=CODE "S"," 


640 INPUT R$ 

650 IF R$="C" THEN GOTO 600 
660 IF LEN R$>11 OR LEN R$<2 TH 
EN GOTO 640 
670 PRINT RT 21,0," 
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680 IF 1=1$ ( i;i < •'1" OR R$(1;!>"6" t 

j n ny ü "^70 

690 IF S=CÜDF -E” HND XlUhL H$i 
1) i :=0 OR P • N , Uhl R $ i 1 i ;i < > 0 THEN 
GOTO 1700 

700 LET PiN.URL R$i1i)=X!URL R$ 
i; 1) j +UHL R$ ( 1) 

710 IF S=CODE "5” THEN LET P(N, 
URL R$ (lü > = -l 

720 PR INT RT URL R $ ( 1 j ,9+4 +N, *' / 
■■ HND S=:CÜDE '•S‘',TRE 11+4+N-LEN 

STR $ P i N,URL R $ (1) j , STR $ P i N,URL 
R$i;i:ij HND S=CDDE "E“ 

730 LET P i N , 7 j =:p ( N , 7 j + ( P ( N , URL 
R $ ( 1} i RND P (N,URL R $ (1j j < >-1> 
740 LET P (N,7 j =P (N,7 j + i35 RND P 
i:N,lj<>0 RND P(N,2j-:>0 RND P(N,3 
;i;>0 RND P!N,4)-::>0 RND piN,5;iw0 
RND P(N,6j<>0 RND P(N.7)>=63:i 
750 PRINT RT 7,ll+N+4-LEN 5TR$ 

P ( N , 7 i , P i N , 7 i 
760 GOTO 1320 

770 IF R$ »: l) < > "D“ THEN GOTO 330 
730 IF P*N,3j <>0 GR 5=CüDE "E" 
RND X(l)<3 RND X(2j-i3 RND X(3:»-:3 
HND X(4j <3 RND X(5) <3 RND X(&) < 

3 THEN GOTO 1700 

790 LET P (N , 3 j =U i 1) +UI « 2) +U 13 ) +Ul 
(4.) +U fSJ 

300 IF S=CODE ''5“ THEN LET P (N , 
3) =-1 

310 PR INT RT 9,9 + 4 +N“ / “ RND 5 = 
CODE "S";TRB 11+4+N-LEN :5TR$ P(N 
, 3 ) STR $ P i N , 3 ') RND S =C:ODE ” E '* 

S 2 0 G ÜT O 1320 

830 IF H$nj<>*’U’‘ THEN GOTO 390 
340 IF Pi:N,9)<>0 OR S=CODE "E“ 
RND X i 1) •:;4 RND X (2) <4 RND X (S) <4 
RND X (4) <4 RND Xl -S) <4 RND X (6) < 

4 THEN GOTO 1700 

650 LET P i N , 9 ) =14 ( 1 j +U i 2 ) +0 ( 3 ') +U 
(4:i +U (5? 

860 IF S=CODE “S" THEN LET PtN, 
9) =-l 

870 PR INT RT 10,9 +4 +N , " “ RND 5 

=:C:nDE ”5“:TRB 11+4+N-LEN STR$ P ( 

N , 9 :t , STR $ P (N , 9:» RND S =:CODE “ E " 


3 3 0 

GOTO l:j5i=!0 




390 

IF 

fl$ (1) < >“F“ 

THEN 

GOT 0 

102 

900 

IF 

P (N , 10:» < >0 

THEN 

GOT 0 

170 

910 

IF 

CX i 1:1 =5 OR 

:x »: 2 :• 

= 5 OR 

X ( 3 

= 5 1 

□ R X 

; i;4.i =s OR X 

(5:» =5 

OR X 

*: 6 :i = 


5 ) RND P i: N , 13 ) < > 0 RND P ( N , U ( 1) i < 
>0 THEN GOTO 930 
920 DIM C(2j 


930 FOR B=1 TO 6 

940 IF XiB:i=3 THEN LET C ( 1 j = 1 
950 IF Xi;B:i=2 THEN LET C:i:2;i=l 
960 NEXT E 

970 IF S=C:ODE **E'* RND O 

R cr 2 ;i= 0 ;i THEN GOTO 1700 
930 LET P(N,10j=25 

990 IF S=CODE "S" THEN LET P(N, 
10 j = -l 

1000 PRINT RT 11,9+4+N:“25“ RND 
S=CODE RND S=CODE “5“ 

1010 GOTO 1320 

1020 IF R$i; TO 2:i<>’'KL“ RND R $ ( 1 
'} •:;>“G“ THEN GOTO 1220 

1030 IF p»;n,ii+':i Rnd R$i;i)=“G“i 

;i •; >0 THEN GOTO 1700 
1040 IF S -= C D E-' E " 5'' THE N G Ü T Ü 119 
0 

1050 IF i:xil)=5 OR X 1 : 2:1 =5 OR X i 3 

:• = 5 o R X (4 :• =5 Ci r :x •: 5 :i = 5 o r :x (6 \ = 

5j RND P(N,13:i<:>0 RND P f N , U i 1:! ) < 
::-0 THEN GOTO 1130 

1060 FOR B = 1 TO 4+(l RND R$ii:i=“ 
G “ :i 

1070 IF Xi:B:i=0 THEN GOTO 1100 

1030 NEXT B 

1090 GOTO 1180 

1100 FOR B=2 TO 5+(l RND R$(i:i=“ 
G " J 

1110 IF X(B:i=0 THEN GOTO 114-0 

1120 NEXT B 

ll;30 GOTO 1180 

1140 IF fl$i;i:i="G" THEN GOTO 1700 
1150 FOR 8=3 TO 6 
1160 IF Xi;b:i=0 THEN GOTO 1700 

1170 NEXT B 

1180 LET P ( N 11 + ( 1 RND R $ ( 1 ;i = ■' G " 
;i ') =30 + ( 10 RND R $ i; 1) = " G '■ J 
1190 IF S=CODE "S" THEN LET P(N, 
11 (1 RND R $ ( 1 ;i =' • G " i :i = - 1 

1200 PRINT RT 12+ (1 RND R$i;i;i=”G 
" ) , 9+4+N.i 5TR$ (30+ (10 RND R$(i:> = 
"G";i ) RND 5=C0DE RND S=C 

ODE "S" 

1210 GOTO 1320 

1220 IF R$ ( TO 2:1 ■;>”KN" THEN GOT 
O 1280 

1230 IF P(N,13;i<>0 OP S=CODE "E” 
RND X(i;i <B RND X(2:i <5 RND X(3:i < 
5 RND X(4:i;5 RND X (5) < 5 RND X ( 6 ) 
•::5 THEN GOTO 1700 
1240 LET P(N,13:i=50 

1250 IF S=CODE "S" THEN LET P(N.. 
13j =-l 

1260 PRINT RT 14,9+N+4 " 50" RND 

S=CODE RND S=CODE " 8 ” 

1270 G CiT O 1320 
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iaS0 IF fl$(1)<>"C" THEN GOTO 170 
0 

1290 IF P(N,14-) < >0 THEN GOTO 170 
0 

1300 LET P (N , 14 1 = (U ( 1.1 +g (2) +U ( 3) 
+ g(4)+UM5) PND S=CODE "E") 

1 :ji 10 P RI NT HT 15 I 5 + N ^ 4- ^ " fi N D S 

= CODE ‘■5‘';TRB ll+N+4-‘LEN STR$ Pt 
N.14),STR$ Pi:N, 14.) fiND S=:CODE "E 

1320 NEXT N 

1330 NEXT R 

1340 FÜR B=1 TD 5P 

1350 LET E i:Z ,B:i =P CB , 7:i +K (b:i 

1360 FÜR H=B TO 14 

1370 IF P(B,fi:i>-l THEN LET E(Z,B 
:• =E (Z , B) +P (B , Hj 
1360 NEXT fl 

1 -j» O 0 P R I NT flT 17.1 11 +EJ*ä- 4—LEN 3>T R $ 
E ( Z .. B :i , E ( Z , B ) 

1400 NEXT B 

1401 PRINT HT 21 0.; ••DRUCKER-KDPI 
E lJ/N) ?•■ 

1402 LET Q$=INKE.$ 

1403 IF Q$< >•*._»•■ AND Q$<>"N” THEN 
GOTO 1402 

1404 PRINT RT 21,0.;’' 

1405 IF = THEN COP. 

1406 IF 0$ = ".J” THEN LET D$=Q$ 
1410 PRINT RT 21,0; ‘’TRSTE ■■••g’"’ 
DRÜECKEN 

1420 IF INKEY $<> "g*' THEN GOTO 14 
20 

1430 CL5 
1440 NEXT Z 
1450 GOSUB 50 

1460 PRINT .. ,TRB 9: " Han=wsiifaaiia “: 
fHT 4,7.; 

1470 FOR B = 1 TO 5P 

1480 PRINT aäB‘':CHR$ (B + lSBi, 

1490 NEXT B 

1500 FOR B=1 TO RNZ 

1510 PRINT TRB 0CHR $ C 
B+156J; 


: 100 ; 


1520 FOR N=1 TO 5P 
1530 PRINT “H**;** 

00; ” RND e(b,n:i 

B , N;i < 10; E CB , N) ; 

1540 NEXT N 
1550 NEXT B 

1552 PRINT TRB O, 

1553 FOR B=1 TO SP 

1554 PRINT ‘■B= = = = ” 

1555 NEXT B 

1556 PRINT TRB O;" 

1580 FOR B=1 TO SP 

LET ES=0 
FOR R=1 TO RNZ 
LET ES=ES+E i.R,EO 
NEXT fl 

PRINT RND B>1 

•’ RND ES <100; 


RND Ei;B,N)<10 


RND E C 


NDSUMM 


1590 
1600 
1610 
1620 
1650 
S <1000; " 

<10,ES; 
1635 NEXT 


■ RND E 
RND ES 


IF 


1640 
RINT 

1641 

1642 
1645 
b:i 

1644 
RINT 

1645 
1648 
PY 

1650 PRINT 


B 

D$ = *'.J" 


RND RNZ=1 THEN LP 


PRINT RT 14,0, 
FOR B=1 TO SP 
PRINT "SPIELER 

IF D$="J" RND 
"SPIELER " B, ■ 
NEXT B 

IF D$="J" RND 


B, 


" .; N $ C 


RNZ=1 THEN LP 
";n$i:b:i 

RNZ>1 THEN CO 


RT 20 . 
" DRÜECKEN.' 
IF INKE.$<:>' 


0;"NEUES SPIEL? 


U' 


THEN GOTO 16 


" "U 
1660 
60 

1670 CLS 
1680 GOTO 15 

1700 PRINT RT 21,0,"NICHT ERLAUB 
T. ••'■g---* DRÜECKEN." 

1710 IF INKEV$<>"g' 

10 

1720 
2000 


THEN GOTO 17 


GOTU 600 
SRUE "KNIFFEH" 


2010 GOTO O 


WeHrauimluel 


Beschreibung des Programmes (8470 
Bytes) 

Den Kampf zweier Raumschiffe 
simuliert dieses Programm. 

Captain des einen ist der Spieler, 
das andere wird von Klingonen mit 


dem ZX81 gesteuert. Der Bordcompu¬ 
ter des Spielers fragt regelmäßig 
nach Befehlen, wobei er fünf 
Steuerbefehle kennt: 

-Antrieb 

-Drehung 
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Mini-Adion 


-Schuss aus einer Laserkanone 
-Schuss aus einem Laser 
-Befehl zur Selbstvernichtung 
Falls kein Befehl gegeben wurde, 
rechnet der ZX81 neue Flugdaten 
aus. Nicht akzeptable oder gefähr¬ 
liche Befehle werden nicht durchge¬ 
führt. Der Klingone hat starke 
Waffen und feuert bei jeder Gele¬ 
genheit. Es gewinnt derjeninge, 
dessen Energievorrat nicht unter 
die Mindestgrenze fällt, da sonst 
die Reaktoren nicht ausreichend 
gekühlt werden und explodieren. 


PROGRAMMAÜFBAÜ: 

Zeile 0001 bis 0007; Maschinencode¬ 
programm zum Füllen des Bildschirm¬ 
speichers. Nach dem ersten Lauf 
kann er gelöscht werden (CODE 
128 -" ")• 0010 bis 0930: Hauptpro¬ 
gramm,0940 bis 1050: Steuerung, 
1060 bis 2460: Unterprogramme, 1060 
bis 1320: Antriebsroutine, 1330 bis 
1510: Drehungsroutine, 1520 bis 
1620: Laserkanone, 1630 bis 1730: 
Laser, 1740 bis 1970: Selbstver¬ 
nichtungsroutine, 2180 bis 2460: 
Hilfsroutinen. Ivan Matusik 



1 REM MINDESTENS 4-0 BELIEBIGE 
ZEICHEN 

£ LET R=16514 

3 LET M4 = ''3E30£fl0C4.00E16£306£ 
07723 •10FC0D20F6C9'‘ 

4. FÜR 1 = 1 TO LEN MS-1 STER £ 

5 POKE Hl + INT ( ( I-l) ..'2) ■ (CODE 
M ad) -28) * 16 +CODE M a ( I + 1) -28 

6 NEXT I 

7 POKE 16515.128 
10 REM 

U E L T R fl U M-DUELL 


UON I.MflTUSIK 


EUER CHIR-SPECIAL 


>OFTURR 


20 PRINT IBEflSl 

, . " JMVsIdnSl^MPI 

DAS PROGRAMM SIMULIERT 
KAMPF UON ZUEI RAUMSCHI 


Li" . 

DEN 
FFEN . 


30 PRINT AT 20,2; 

35 IF INKEYa="" THEN GOTO 35 
40 LET M=0 


45 

CLS 


50 

PRINT ., 

■iRNUIEISUNG 

ü) H‘ 

■ . , "N) EIN" 

60 

IF INKE-, 

THEN 

70 

IF INKE; 

= THEN 

S0 

IF INKE-, 

■•'$=:"N" THEN 

90 

PRINT ., 

, "FRLSCHE E 



GOTO 60 
G OT D 105 
GOTO 140 
INGfiBE.” 


100 GOTO 50 


105 CLS 

110 PRINT “ SIE SIND DER KÜMRN 
DfiNT EINES RfiUMSCHIFPES. SIE UE 
RDEN UON EI-NEM KLINGONENRRUMSCH 
IFF RNGEGRI-FFEN, UERNICHTEN SIE 
DEN FEIND." 

112 PRINT " DER BORDCONPUTER K 
ENNT FUENF BEFEHLE : " , "fiW.IJtlUj 


114 PRINT 
INGABE BE¬ 
FEIND . “ . “ 
EHT WUR-DE 


POSITIUE DISTANZ E 
LIEGT DAS SCHIFF ZUM 
FRLLS DRS SCHIFF GEDR 
NUSS DIE ROTRTION GES 


TOPT UERDEN SONST ROTIERT DRS 

SCHIFF WEITER DIE LRSER K 

RNONE IST UIRKSRM- INNERHRLB 10 
GRDE-".. " DER LRSER IST WIRKSRN 
INNER- HRLB 30 GRRDE RBER NUR B 


IS 4.E4- KM," 

120 PRUSE 2000 
130 GOSUB 24-20 


140 CLS 
145 LET U=0 
150 LET T=0 
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Mini-Action 


160 LET 5=0 
165 LET H=0 
170 LET B=0 
1S0 LET E = 12E4- 
190 LET F=19E4 

200 LET D=2E4 + lE4Tt-INT iüS+RNDÜ 
205 LET OD=10 

210 LET C = INT iSGN ( - 1+£ ^iiRND j ^9 
0 ^RND:i 

220 IF M=1 THEN GOTG 460 
230 Fh5T 

240 FDR X=0 TO 11 
260 PRINT RT X . O 


2S0 NEXT X 
290 PRINT RT 6.0; ‘'«i' 
300 PRINT RT 11. 12;‘ 
310 PRINT RT 0.12;’ 
320 PRINT RT 13.. 0;^ 


:ThB 31.: 



370 PRINT RT 16 0 ; "ENERGIE’' : TRB 
21 : ”KOr-1RNDuS" 

330 PRINT RT 17,21:"l-"; 

390 PRINT RT 13.0" RB5TRN0 T 

REFFER 2«" 

400 PRINT RT 19 17; "H 3 . ’’ 

410 PRINT RT 20,0 ; "PEILUNG" .; TRB 
17; ' Di" : TRB 21; "4 . " 

420 PRINT RT 21,2 1; " 5 . 

4 30 PRINT RT 19,11 ;T 

4 40 PR INT RT 2 1 .. 11; 5 
450 5L0g 

460 REM 

465 IF 0:^=1E5 THEN GOTO 560 
470 IF tR=0 THEN GOTO 544 
475 LET L = - 1 +2 +RND D ./7E4 
430 IF L =0 THEN GOTO 560 
490 LET 5=3+1 

500 LET E=E-25E2+ i 1+ i INT 50+RND 
j /10l 

510 LET K=5 
520 ERST 
530 G03UB 2380 
540 5LOU 

544 PRINT RT 21,11:" 

5 4 3 P R I NT RT 21.11.: S 
550 LET F=F-25E2 


590 IF RB5 C>56 DR D:>=1E5 THEN 
GOTO 350 
595 LET CC=C/4 

500 IF D>=5E4 ÜR D<=-5E4 THEN G 
OTO 520 

610 IF D>=35E3 ÜR D<=-35E4 THEN 
GOTO 730 

620 IF D>=15E3 OR D<=-i5E3 THEN 
GOTO 740 

630 IF D-=9E3 OR D<=-9E3 THEN G 
OrrO 700 

640 IF D > =2500 OR D<rr-2500 THEN 
GOTO 650 
645 GOTO 350 

650 PRINT RT 5 . INT i (C-B) ./4 + 12} 


660 PRINT RT 6 INT ( (C-B ) /4 + 12 :i 


665 IF RB5 CG>10 THEN GOTO 350 
670 PRINT RT 5 . INT i:CC + 12} .; """• 


630 PRINT RT 6 , INT ( CG + 12 ) ; " 00^^ 

IHoo *' 

690 G OT O 3 5 0 

710 PRINT RT 5 , INT ( NO-B « -et + 12} 


715 PRINT RT 6 . INT M: C--B ) /4 + 12 ) 
720 PRINT RT 5 .. INT ( CC + 14 J ; " . 
730 GOTO 350 


750 

PRINT 

RT 

>= 

, INT 

C (C-B> /4 + 12i 

750 

PRINT 

RT 

5 

, INT 

(00+15);" 

770 

G OT Ol 

3 5 0 




790 

PR INT 

RT 

5 

. INT 

1 iO-B) /4 + l:2) 

300 

PRINT 

RT 

5 

, INT 

(00+15): 

310 

G OT LI 

:5 5 0 




330 

PRINT 

«i 

RT 

ET 

. INT 

( ( 0 B ) / 4 + 12 ) 

340 

PRINT 

RT 

5 , 

, INT 

iCC + 15) i "P*" 


350 IF P B :5 C 5 6 THE N PR INT RT 5 

. 0 ; * ’ 


351 IF RB5 0 56 THEN PRINT RT 6 


560 

LET F=F-25E2 


8 52 

PRINT 

RT 

6=0;;TRB 31 

570 

LET D = D-'25E2 


355 

PRINT 

RT 

17.0;" 

5 72 

IF SGN D<>5GN 

DD RND ( C :> =0 

360 

PRINT 

RT 

17,0.; INT E 

RND C 

■:;90) THEN LET 

0 = 130-C 

3 70 

PRINT 

RT 

19,0; " 

574 

IF SGN DOSGN 

DD RND (C<0 R 

880 

PRINT 

RT 

19,0;INT D 

ND C > 

-90) THEN LET 

C=-0-130 

390 

PRINT 

RT 

21.0:" 

530 

IF E<=0 OR F< 

=0 THEN GOTO 1 

900 

PRINT 

RT 

21.0 ; C 

930 

535 

PRINT RT 6,0; 

"bw" ; TRB 31 ; "ab“ 

910 

920 

GOTO 

IF R < 

940 

:>2 THEN LET 0=0+8 
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Mini-Action 


9 3 0 

G OT O 460 


1390 

INPUT B 

940 

PRINT RT 13,5; ■•Mä|3:=Iiap*^BJli} 

1400 

PRINT RT 18.55;” 

[SE[?i»liI=naSIl'- 


1410 

PRINT RT 18.. 25:B 

950 

GOSüB 5200 


1450 

IF RBS B>50 THEN GOTO 1480 

9 6 0 

FOP 1=1 TO 5 


1430 

LET C=C+B 

970 

LET R$=INKEV4 


1440 

LET E=E-(10*RBS lB)) 

980 

IF H$=”l” THEN GOTO 

1055 

1450 

PRINT RT 51,0;” 

990 

IF H$=”5” THEM GOTO 

1330 

1460 

PRINT RT 51.0;C 

1000 

IF R$=”3” THEN GOTO 

1550 

1470 

GOTO 455 

1010 

IF R$="4” THEN GOTO 

1630 

1480 

PRINT RT 13,5: "MlMtarM=l=l.»aa 

1050 

IF H$=”5” THEN GOTO 

1740 


1030 

NEXT I 


1485 

GOSUB 5500 

1040 

GOSUB 5200 


1490 

GOSUB 5540 

1050 

GOTO 920 


1500 

G 0 S LI B 5200 

1055 

LET K=2 


1510 

GOTO 1330 

1060 

FOP .J = l TO 3 


1550 

LET E=E-5E3 

1070 

PRINT RT 17.51; ”111” 


1530 

IF RBS C<=5 THEN GOTO 1570 

1080 

GOSUEj 5380 


1540 

GOSUB 2560 

1090 

PRINT RT 17,21:”1.” 


1550 

GOSUB 2500 

1100 

GOSUB 2380 


1560 

G OT O 950 

1110 

NEXT U 


1570 

LET F=F-5E3* ( 1 + INT (RND-it50:t 

1120 

INPUT L 


. 1 0 ! 


1130 

PRINT RT 17.55;” 

•• 

1580 

LET T=T+1 

1140 

PRINT RT 17,55;L 


1585 

LET 0=19 

1150 

IF L>=3E4 THEN GOTO 

1510 

1590 

GOSUB 2280 

1155 

LET DD=D 


1600 

PRINT RT 19., 11;” ” 

1160 

LET D=D-L 


1610 

PRINT RT 19,ll;T 

1170 

IF RBS D<50 THEN GOT 

0 1550 

1650 

GOTO 950 

1180 

IF RBS D:>15E4 THEN GOTO 159 

1630 

IF RBS C<=15 THEN GOTO 1680 

0 



1640 

LET E=E-5500 

1190 

LET E=E-RBS iL) 


1655 

IF D>=4E4 THEN GOTO 1590 

1200 

L* oHT U 920 


1660 

GOSUB 5560 

1510 

PRINT RT 13,3; 

1665 

GOSUB 5200 



1515 

GOSUB 2200 

1250 

GOSUB 5240 

1530 

GOSUB 2200 

1240 

GOTO 1055 

1550 

PRINT RT 13 





1255 GÜ5UE 2500 
1560 GOSÜB 5540 
1570 GO 5 U B 5500 
15S0 GOTO 1055 
1290 PRINT RT 13,0 : 


1295 

GOSUB 5500 

1300 

GOSUB 5240 

1310 

G Ü S U B 5500 

1350 

GOTO 950 

1330 

FOR J=1 TO 3 

1335 

LET K=2 

1340 

PRINT RT 18., 51 

1350 

G 0 S U B 2380 

1360 

PRINT RT 18., 51 

1370 

GOSUB 5380 

1380 

NEXT ü 


1670 GOTO 950 

1680 LET F=F-5500* ( 1 + INT (RND*50 
:i /50) 

1690 LET U=U+1 
1695 LET 0=50 
1700 GOSUB 2500 
1710 PRINT RT 50,11.:” 

1750 PRINT RT 50,11;U 

1730 GOT O 950 

174-0 PRINT RT 13,0; ” 

1750 G Ü 5 U B 5 50 0 
1760 PRINT RT 13,0 .i '' 

1770 G O 5 U E 2500 



1790 FÜR J=1 TO 20 
1800 PRINT RT 21,25.;” 
1810 PRINT RT 51.. 55; 50-J 
1815 LET K=S 
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Mini-Adion 


132:0 GO 
1330 IF 
0 

134.0 NEXT 


UB 2330 
INKEV $ = ■ 


J 


THEN GOTO 136 


1350 

1360 

1370 


GOTO 1900 
GOSUB 2200 
PRINT HT 13,0; 


LB5TUE 




IsSSM' 

1330 
1390 

1900 

1901 

1902 

1903 
1904. 

1905 

1906 
1910 
1920 

NST-DER FEIND UhR 
1930 GOSUB 2420 
1940 GOTO 2130 
1950 PRINT 
T UMSONST. SIE 

D UERNICHTET.“ 
I960 GOSUB 2420 
GOTO 2130 
IF E<=0 RND 


GOSUB 2200 
GOTO 920 
LET g=USR 16514 
LET K=5 
G O 3 U B 2330 
POKE 16515,136 
LET U=:USR 16514 
LET K=4 
GOSUB 2320 

IF D<=:5E3 THEN GOTO 1950 
PRINT ,,''DfiS OPFER URR UMSO 
U UEIT.’‘ 


OPFER URR 
HRBEN DEN 


NICH 

FEIN 


1970 

1930 

2100 

1990 

2000 

2010 


F<=:0 THEN GOTO 


IF E<=0 THEN GOTO 
IF 0 56 THEN GOTO 
PRINT RT 5.0; 


2015 PRINT RT 5,0; 


2020 PRINT RT 13,0;** 



~riifiriirra^T~WiJ^iniTm~T!ni T"T7I iliT Wi 
SBnk1SIali<>15l£I^<4l' 

2030 GOSUB 2200 
2040 LET M=:l 
2050 GOTO 2130 
2060 GOSUB 23i20 

2070 PRINT ,,"SIE SIND EIN SOHLE 
CHTER KREMPFER" 

2030 GOSUB 2420 
2090 G OT O 2130 


2100 

2110 

URCH 

2120 

2130 

EDER 


CLS 
PRINT 
UM ZU 
GOSUB 
PRINT 


,, ‘'BEIDE URREN ZU SCH 
UE-BERLEBEN-“ 

2420 

RT 13,0:‘'FRLLS SIE UI 
UELTRRUMDUELL SPIELEN UOLL 
EM GEBEN SIE JüR EIN." 

2140 IF INKEY$="" THEN GOTO 2140 
2150 IF INKEY$<>"Ü" THEN GOTO 21 
31 


2160 IF E<>0 RND fi<>5 THEN GOSUB 
2220 

2170 IF E<>0 THEN GOTO 145 
2131 PRINT ,,"RUF UIEDERSEHN BIS 
ZUM NRECHSTENKRMPF." 

2190 STOP 
2200 LET K=30 
2210 GOSUB 2330 
2220 PRINT RT 13,0: 


2230 

RETURN 

2240 

PRINT 


2250 

RETURN 

2260 

PR INT 

RR ZU GROSS 

2270 

RETURN 

2230 

FÜR J- 

2235 

PRINT , 

2290 

LET K=:: 

2295 

GOSUB ; 

2300 

PRINT i 

2305 

GOSUB ; 

2307 

NEXT J 

OJ 

RETURN 

2320 

ERST 

2330 

CLS 

2340 

LET K=i 

2350 

GOSUB : 

:2 3 S 0 

s Loy 

2370 

RETURN 

2330 

FÜR 1 = 

2 3 9 0 

LET Z=l 

2400 

NEXT I 

24 10 

RETURN 

2420 

LET K=5 

2425 

GOSUB ; 

2430 

CLS 

2440 

RETURN 

2450 

PRINT ' 

2460 

GOT 0 2 ; 

2500 

STOP 

3000 

SPUE "i 

3001 

RUN 


RT 14.0; ’'l d^=M=Mifa 


HL U 


RT 13,0., 




1 TO 
RT O 

2330 
RT 0 . 


16 


16, 


TO K 


"RUF ylEDERSEHEN. 


’^'kifir'ßriririricitiririririt’kicitifitiriticie-trir-k-kit'kifk'k^’kTk'^’k'k-kirit 


★ 

★ 

★ 

★ 

* 

★ 

★ 

★ 

★ 

★ 

* 

★ 

★ 

★ 

* 

* 

★ 

★ 

* ; 

t Wir halten Ihnen die Daumen! 


Wenn Sie dann so weit sind, daß Sie 
ähnlich gute oder vielleicht noch 
bessere Programme schreiben können, 
dann hat sich Ihr Computer bereits 
amortisiert. 

Denn: Die Redaktion CHIP-Special 
kauft sämtliche Programme auf, die 
unseren Kriterien standhalten. 
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Mini-Adieii 


Dsdiwngelbuch 


Beschreibung des Programmes 
( 2000 Bytes) 

Die Affen rasen durch den Wald und 
werfen sich Kokusnüsse zu.Gelingt 
es Ihnen, einem Affen vier Kokus¬ 
nüsse zuzuwerfen, dann haben Sie 
gewonnen. Jeder gelungene Wurf gibt 
zwei Punkte. Doch Vorsicht, die 


Dinger sind steinhart und fallen ab 
und zu alleine von den Bäumen. 
Werden Sie getroffen, ist das Spiel 
für Sie beendet. Für jede am Boden 
liegende Nuß, über die Sie hinweg¬ 
steigen, gibt es einen Punkt. 

Helmut Feldmeier 


1 

£ 

3 

4- 

5 

5 

7 

9 

20 

30 


GOSUB 1100 

LET E=19 

LET 5:=0 

LET 5C:=0 

LET 0=0 

LET C=0 

LET D=0 

LET F=5 

FÜR H=0 TO 19 

PRINT RT R,0; 


■•;TRB 30 ; 


4-0 

50 

60 

■ 

70 

S0 


NEXT R 

FÜR R=0 TO 7 
PRINT RT R,2;’* 

■ I ES 

NEXT R 

PRINT RT 21,0: 


I ■. I / 



270 NEXT R 
280 CLS 
i=! y 0 y u T u y 
500 LET X=F 
502 LET D=1 

505 FÜR h=E TO 8 STEP -1 

511 LET X=X+1 

512 PRINT RT R,X; 

513 IF PEEK (PEEK 16398+PEEK 16 
399^2560 =:CODE ‘13'' THEN GOSUB 300 
0 

520 PRINT RT R,X:‘',” 

530 PRINT RT R:X:’' 

540 IF X=29 THEN RETURN 
560 NEXT H 

570 PRINT RT 2 1,3 : ; SC 

580 IF 3=4 THEN GOTO 200 
590 RETURN 


100 FOR h=2 Tjj 29 STEP 3 
110 GOSUB 2000 

120 IF RND+1<,65 RND C=0 THEN G 
OSUB 700 

125 IF S=4 THEN GOTO 200 


130 

PRINT 

RT 

s,h; ■■ 

•' 

135 

LET D 

= 0 



140 

NEXT 

H 



150 

PRINT 

RT 

o 

ill 

•• 

155 

LET C 

= 0 



157 

LET D 

= 0 



160 

GOTO 

100 



200 

CLS 




210 

PRINT 

RT 

6,2.; “GRRTULIERE - S 

IE HRBEN E 

S ‘' 



220 

PRINT 

RT 

8,2” 

GESCHRFFT « '' 

230 

PRINT 

RT 

12,2; 

"SCORE : ":SC 

235 

PRINT 

RT 

14,2 

"LEIDER TELEP 

OPTIERT SIE DER ” 


•—t 

•—* i' 

PRINT 

RT 

16,2; 

"ZRUBERER UIE 

DER 

IN DEN 

URLD '* 


240 

PR INT 

RT 

IS, 1, 

"FERTIGMRCHEN 

EUER DIE 

NREC 

:H5TE’* 


2 5 0 

PRINT 

RT 

20.1.; 

"RUNDE." 


260 i-Ow H=0 TO 200 


600 LET X=F 
602 LET D=1 

605 FOR R=E~1 TO 8 STEP -1 

606 LET X=X-1 

607 PRINT RT R,X; 

608 IF PEEK iPEEK 16398-t-PEEK 16 
399+256)=CODE 'S" THEN GOSUB 300 
0 

610 PRINT RT H,X;''.'‘ 

620 PRINT RT R,X:'‘ " 

630 IF X=2 THEN RETURN 
650 NEXT R 

665 PRINT RT 2 1,3 : “; SC 
670 IF S=4 THEN GOTO 200 
680 RETURN 

700 LET Z=INT (RND^2)-1 
710 LET 0=H 
720 FOR B=9 TO 18 
730 PRIh-IT RT 8,0.:"®’' 

735 PRINT RT B,0.;‘'S‘' 

740 PRINT RT B,0.;'' •' 

750 IF Ü=2 OR 0=29 THEN RETURN 
760 LET 0=0--Z 
765 GOSUB 2000 
770 NEXT B 

780 IF 0=F THEN GOTO 1000 
790 PRINT RT B,O;"O“ 
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Mini-Aclion 


795 LET C 

= 1 



1220 

PRINT AT 13 

S00 RETURN 



RAUSZ 

UKOMMEN.“ 

1000 CLS 




1230 

PRINT AT 20 

1010 PRINT 

AT 

■■ 

LEIDER HAT 

+ SPA 

i;=i , *’ 

SIE EINE K 

üKUSNUSS“ 


1240 

FOR A=0 Tü ; 

1020 PRINT 

AT 

7,0; " 

ERSCHLAGEN. 

1250 

NEXT A 

" 




1255 

CLS 

1030 FÜR A 

=0 TO 200 


1260 

RETURN 

1040 NEXT 

A 



2000 

PRINT AT E, 1 

1050 GOTO 

10 



2005 

LET F=F+(INI 

1100 PRINT 

AT 

0,11; 

••-^-•• 

$ = “5“ 

i 

1110 PRINT 

AT 

1.11; 

’■+ r-Tüaaji +•■ 

2006 

PRINT AT E.:! 

1120 PRINT 

AT 

2.14.: 

“ IM“ 

2007 

IF PEEK (PEI 

1130 PRINT 

AT 

3 .. 9; 


399*2 

i"?. 

56 i =C:ODE “0 

1140 PRINT 

AT 

4 .. 9 

- + - 

u 

2010 

PRTNT AT E,l 





2020 

PRINT AT 3., 1 

1150 PRir-JT 

AT 

21,20 

; “ ( (Ci BY HELI 

2030 

IF INKEY $ 3 “1 

:i “ 




GOSUB 

i 500 

1160 PRINT 

AT 

6,1;"EIN ZAUBERER 

2040 

IF INKEY 

HAT SIE IN 

DEN“ 


GOSUB 

: 600 

1170 PRINT 

AT 

8,1;"DSCHUNGEL TEL 

2050 

RETURN 

EPORTIERT. 

SIE 



3000 

LET S=S+1 

1130 PRir-JT 

AT 

10 .. 1; 

"DUERFEN SICH 

3010 

LET SC=SC+2 

NICHT UON 

DEN“ 


3015 

PRINT AT 21 

1190 PRir-^T 

AT 

12, i; 

"FALLENDEN KO 

'J? 02 0 

RETURN 

KUSNUESSEN 

EPS 

CHLR- 


3022 

LET S=S-H 

1200 PRINT 

AT 

14-, 1, 

"-GEN LASSEN. 

3025 

PRINT AT 21 

DEN AFFEN ! 

MUESSEN“ 


3030 

LET 5C=SC+1 

1210 PRir-JT 

AT 

16,1; 

"SIE 4.# TREFF 

3035 

PRINT AT 21 

EN UM AUS I 

DEM 

'■ 


3040 

RETURN 


SGOR 



:.C 


; SC 


Hungiy Dog 


Beschreibung des Programmes (4000 
Bytes) 

Versetzen Sie sich in die Lage 
eines kleinen struppigen Straßen¬ 
hundes. Sie sind hungrig und müssen 


stets auf der Hut vor Hundefängern 
sein. Das teilweise in Maschinen¬ 
sprache geschriebene Programm er¬ 
klärt sich selbst. 

Alexander Henkel 


1 REM MINDESTENS 117i BELIEBI 
GE ZEICHEN 

2 R E M H U G R Y - D O G 


UON fl - HENKEL 


EUER C:HIP->5PECIflL 

100 PRINT “LENKEN SIE DEN HUND 
DURCH DflSLABYRINTH UND FRESSE 
N SIE flLLEPUNKTE. 


110 PRINT “STEUERN SIE DEN HUND 
MIT DEN TASTEN E . 2 .. H .. ® IN DIE G 
EUUENSCHTE RICHTUNG.“ 

120 PRINT “ACHTEN SIE ABER AUF 
DEN HUNDE- FAENGER., DER SIE MICH 
T ERUISCHEN DARF. “ 

130 PRINT “ER LAEUFT IMMER NACH 
LINKS“ 

140 PRINT “UERSTECKEN SIE SICH 
ALSO IN EI- NEM RECHTEN GANG.“ 
150 PRINT DRUECKEN“ 

160 IF CODE INKEY$<>11© THEN GO 
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TO 160 
170 LET H=:0 
180 PÜKE 164.18,0 
£00 CLS 

£10 PRINT hT £3,10, "HI: ":H 
££0 RhND ü5R 16514 
£30 PRINT hT 0,0.i''illffl DRüECKEN" 
£50 LET R=:PEEK 16396+£56 i^PEEK 1 
6397+£3+33+2 
£60 LET 5=0 


£70 FÜR 1=0 TO 5 

£80 LET 5=10+5+CPEEK (P+D-IEEJ 
£85 NEXT I 

£90 IF 5>H THEN LET H=5 
300 IF CODE INKEY$<>11S THEN GO 
TO 300 

310 GOTO £00 

9900 PRINT TRB 

9901 PRINT TRB 
990£ PRINT TRB 

9903 PRINT TRB 

9904 PRINT TRB 

9905 PRINT TRB 



9906 

H 1. 

PRINT 

TRB 

9907 

H •• 

PRINT 

TRB 

9908 

B •< 

PRINT 

TRB 

9909 

B •• 

PRINT 

TRB 

9910 

B 

PRINT 

TRB 

9911 

e 1. 

PRINT 

TRB 

9912 

B >> 

PRINT 

TRB 

9913 

li •> 

PR INT 

TRB 

9914 

PRINT 

TRB 



0 ; 


9915 PRINT RT 0,0; 


99 16 

9917 

9918 
99£0 
T : 

y y ir! 1 
99££ 


PRINT ■■ I5INCLRIR ZXS1| " 
PRINT " 

PRINT RT 1£,17,"R- HENKEL" 
PRINT RT 14,17;"PRRE5ENTIER 


FÜR 1=16 TÜ ^ 
PRINT RT 1,0; 


ÜO 


99£3 NEXT I 
99£4 PRINT RT 18 
, RT 19,10; "mhwi 


10; "G 


99£5 PRINT RT £ 1 , O ; "BMB ITTE EIN 
E TRSTE DRUECKENBHBI*' 


99£6 CLERR 
99£7 5hUE "S" 

99£8 IF INKEY$="" THEN GOTO 99£S 
99£9 CLS 
9930 RUN 
9940 REM 

■KI49[4«l2K^=a^a!MfeG14Hi 


9941 5CR0LL 

994£ PRINT "RDRE55E: BYTES:" 

9943 5CRÜLL 

0944 PRINT "- " 

9945 SCRÜLL 

9946 PRINT 

9947 SCRÜLL 

9948 FÜR Z=16514 TO 17£S7 

9949 PRINT Z; 

9950 INPUT BYTE 

9951 POKE Z,BYTE 

9952 PRINT TRB 13;PEEK Z 

9953 SCRÜLL 

9954 NEXT Z 

9955 SCRÜLL 

9956 SCRÜLL 

9957 PRINT "DIE MC-EINLESE-ROUTI 
NE KRNN NUN" 

9958 SCRÜLL 

9959 PRINT "GELÜE5CHT UERDEN." 

9960 SCRÜLL 

9961 SCRÜLL 

9962 PRINT "UÜR DEM ERSTEN STRRT 
SOLLTE DRS" 

9963 SCRÜLL 

9964 PRINT "PRDGRRMM JEDOCH RBGE 
•SPEICHERT " 

9965 SCRÜLL 

9966 PRINT "UERDEN." 


ADRESSE BYTES 


16514 

62 

136 

205 

101 

66 

16519 

205 

130 

66 

42 

12 

16524 

64 

17 

35 

0 

25 

16529 

54 

0 

34 

136 

67 

16534 

33 

136 

67 

34 

82 

16539 

67 

34 

84 

67 

62 

16544 

16 

50 

88 

67 

42 

16549 

82 

67 

94 

35 

86 

16554 

237 

83 

86 

67 

62 

16559 

4 

50 

78 

67 

205 

16564 

150 

66 

42 

80 

67 

16569 

41 

17 

92 

67 

25 

16574 

94 

35 

86 

237 

83 

16579 

90 

67 

6 

o 

197 

16584 

42 

86 

67 

237 

91 

16589 

90 

67 

25 

229 

62 
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JVUni-Action 


16594 

128 

190 

194 

41 

65 

16879 

2 

24 

220 

62 

23 

16599 

25 

175 

190 

202 

41 

16884 

190 

202 

96 

66 

62 

16604 

65 

14 

2 

42 

80 

16889 

27 

190 

40 

1 

175 

16609 

67 

41 

17 

92 

67 

16894 

50 

118 

67 

34 

134 

16614 

25 

43 

43 

6 

2 

16899 

67 

54 

176 

205 

44 

16619 

94 

35 

86 

227 

25 

16904 

67 

96 

105 

62 

255 

16624 

190 

202 

41 

65 

167 

16909 

189 

202 

168 

65 

35 

16629 

237 

82 

227 

35 

35 

16914 

41 

17 

92 

67 

25 

16634 

35 

16 

238 

227 

237 

16919 

94 

35 

86 

42 

86 

16639 

91 

90 

67 

25 

227 

16924 

67 

25 

62 

128 

190 

16644 

13 

32 

216 

225 

42 

16929 

202 

168 

65 

62 

176 

16649 

86 

67 

25 

54 

0 

16934 

190 

202 

96 

66 

62 

16654 

34 

86 

67 

62 

16 

16939 

27 

190 

229 

213 

32 

16659 

50 

88 

67 

193 

16 

16944 

17 

42 

108 

67 

17 

16664 

174 

229 

42 

84 

67 

16949 

10 

0 

25 

34 

108 

16669 

35 

35 

34 

84 

67 

16954 

67 

42 

116 

67 

35 

16674 

209 

115 

35 

114 

195 

16959 

34 

116 

67 

209 

225 

16679 

174 

64 

225 

193 

58 

16964 

34 

86 

67 

54 

23 

16684 

88 

67 

61 

50 

88 

16969 

175 

237 

82 

54 

0 

16689 

67 

194 

174 

64 

42 

16974 

42 

116 

67 

35 

237 

16694 

82 

67 

35 

35 

34 

16979 

91 

114 

67 

175 

237 

16699 

82 

67 

237 

91 

84 

16984 

82 

194 

168 

65 

195 

16704 

67 

167 

237 

82 

194 

16989 

130 

65 

0 

205 

130 

16709 

159 

64 

62 

128 

205 

16994 

66 

201 

0 

17 

31 

16714 

101 

66 

42 

12 

64 

16999 

0 

42 

12 

64 

6 

16719 

33 

0 

0 

34 

108 

17004 

32 

35 

119 

16 

252 

16724 

67 

33 

248 


34 

17009 

6 

22 

35 

35 

119 

16729 

110 

67 

33 

104 

67 

17014 

25 

119 

16 

249 

6 

16734 

34 

112 

67 

42 

12 

17019 

30 

43 

119 

16 

252 

16739 

64 

17 

35 

0 

25 

17024 

201 

0 

42 

12 

64 

16744 

34 

86 

67 

42 

12 

17029 

14 

24 

6 

32 

35 

16749 

64 

17 

22 

3 

25 

17034 

126 

198 

128 

119 

16 

16754 

17 

223 

255 

175 

25 

17039 

249 

35 

13 

32 

243 

16759 

190 

32 


34 

134 

17044 

201 

0 

237 

75 

52 

16764 

67 

62 

8 

50 

130 

17049 

64 

237 

91' 

78 

67 

16769 

67 

17 

0 

0 

237 

17054 

62 

16 

33 

0 

0 

16774 

83 

116 

67 

62 

128 

17059 

203 

17 

203 

16 

237 

16779 

42 

12 

64 

14 

23 

17064 

106 

237 

82 

48 

1 

16784 

6 

32 

35 

190 

40 

17069 

25 

63 

61 

TO 

241 

16789 

3 

54 

27 

19 

16 

17074 

203 

17 

203 

16 

35 

16794 

247 

35 

13 

-T'—i 

241 

17079 

34 

80 

67 

42 


16799 

237 

83 

114 

67 

33 

17084 

64 

41 

237 

66 

203 

16804 

118 

67 

54 

27 

205 

17089 

252 

34 

52 

64 

201 

16809 

199 

66 

42 

86 

67 

17094 

0 

42 

108 

67 

34 

16814 

54 

‘-y-T 

42 

134 

67 

17099 

132 

67 

33 

107 

67 

16819 

54 

176 


0 

248 

17104 

6 

3 

14 

2 

197 

16824 

17 

1 

0 

25 

48 

17109 

229 

237 

75 

132 

67 

16829 

253 

42 

134 

67 

58 

17114 

17 

10 

0 

205 

18 

16834 

118 

67 

119 

58 

130 

17119 

67 

237 

67 

132 

67 

16839 

67 

61 

61 

32 

2 

17124 

235 

225 

123 

237 

103 

16844 

62 

8 

50 

130 

67 

17129 

193 

13 

32 

231 

43 

16849 

33 

0 

0 

111 

17 

17134 

16 

226 

42 

12 

64 

16854 

92 

67 

25 

94 

35 

17139 

237 

91 

110 

67 

25 

16859 

86 

42 

134 

67 

25 

17144 

235 

42 

112 

67 

70 

16864 

62 

128 

190 

32 

13 

17149 

175 

35 

14 

2 

19 

16869 

58 

130 

67 

60 

60 

17154 

237 

111 

198 

28 

18 

16874 

254 

10 

32 

224 

62 

17159 

214 

28 

13 

32 

245 
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17164 

237 

111 

16 

238 

201 

17169 

0 

62 

16 

33 

0 

17174 

0 

203 

17 

203 

16 

17179 

237 

106 

237 

82 

48 

17184 

1 

25 

63 

61 

32 

17189 

241 

203 

17 

203 

16 

17194 

201 

0 

62 

255 

237 

17199 

91 

37 

64 

58 

128 

17204 

67 

71 

14 

0 

33 

17209 

120 

67 

126 

35 

187 

17214 

32 

4 

126 

186 

40 

17219 

6 

35 

12 

16 

243 

17224 

14 

255 

6 

0 

201 

17229 

0 

4 

0 

3 

0 

17234 

208 

68 

208 

68 

238 

17239 

73 

0 

0 

255 

255 

17244 

223 

255 

1 

0 

33 

17249 

0 

255 

255 

223 

255 

17254 

1 

0 

3 

0 

3 

17259 

16 

54 

1 

248 

2 


17264 

104 

67 

84 

1 

31 

17269 

0 

27 

0 

223 

253 

17274 

191 

251 

223 

251 

239 

17279 

253 

4 

0 

6 

0 

17284 

0 

0 

239 

73 

97 



MuHipIfaneren und Dividieren 


Beschreibung des Programmes (8000 
Bytes, Druckeranschluß möglich) 
Dieses Programm ermöglicht es, Mul¬ 
tiplikationen oder Divisionen nach 
der primären Lösungsmethode an¬ 
schaulich auf dem Bildschirm darzu¬ 
stellen. Der ZX8t ist mit diesem 
Programm in der' Lage, gewünschte 
Probleme selbstständig zu lösen. 
Die Rechengenauigkeit dieses gut 
zur Hausaufgaben-überprüfung ein- 
setzbaren Programmes ist aus¬ 
reichend hoch. Mit "NEWLINE" star¬ 
ten Sie das Programm. Mit "Q" ko¬ 
pieren Sie das Programm auf andere 
Datenträger. Die Taste "M" ermög¬ 
licht die Erstellung eines Motives, 
welches sich mit auf Band abspei¬ 
chern läßt. Der untere Teil im 
Menue nennt sich; SERVICE BY RUN- 
NING. Darunter sind in Klammern und 
Anführungszeichen die Tasten ent¬ 
halten, die man beim Arbeiten wäh¬ 
rend der Rechenarbeiten benutzen 
kann. Sie können diese Tasten nur 
dann benutzen, wenn die unterste 
Zeile diese Buchstaben enthält. Die 
Buchstaben zum Auslösen von be¬ 
stimmten Sonderfunktionen stehen in 
der untersten Zeile während aller 


Rechnungsvorgänge. Lassen Sie sich 
durch diese unterste Zeile nicht 
irritieren . 

Sie können nun entweder eine Multi¬ 
plikation oder eine Divisionsauf¬ 
gabe eingeben. Geben Sie zuerst ein 
"F" ein, so haben Sie eine Feed¬ 
back-Funktion mit dem Computer ver¬ 
einbart. Dies erleichtert dann - 
durch das Flimmern des Bildschirmes 
während der Eingabe - das eigent¬ 
liche Eingeben. 

Bevor Sie den Prozeß starten, 
schauen Sie sich mal die unterste 
Zeile an. Ganz links können Sie mit 
"C" oder "Z" eine Copy über den 
Drucker erstellen. 

Multiplikation: Im Normalmodus ent¬ 
stehen ebenfalls invertierte Zahlen 
auf dem Bildschirm. Dies sind die 
Zahlenwerte, die sich Ihr Rechner 
merkt, um diese im nächsten Rechen¬ 
schritt weiterzuverarbeiten. Im 
(M)ore-Modus werden Sie den Rechner 
noch genauer beobachten können. Der 
Lehrermodus in "1" oder "2" zeigt 
noch mehr die einzelnen folgenden 
Rechenschritte. 

Division; Hier gilt etwa das glei¬ 
che wie bei den Multiplikationen. 
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Mcrthemcrtik 


Die Aufgaben können hier nebenbei 
auch auf unendlich viele Stellen 
nach dem Komma errechnet werden. 
Wenn der Computer stoppt, führt 
"NEWLINE" zur Fortsetzung. Der Di- 
vident darf mehrere Zeilen groß 
sein, der Divisor nur maximal 
11111111. Füllen sich die Zahlen 
nach dem Komma auf, wird der Bild¬ 
schirm dabei voll, so hilft sich 
der Computer auch dann weiter. 
Achten Sie dann auf die Meldung 
"NEW SCREEN". 

VARIABLEN: 

”R": Wenn Sie irgendwo in der unte¬ 
ren Zeile ein ”R" sehen, dann 
können Sie mit dem Drücken der 
Taste "R" eine Aufgabe von vorne 
lösen lassen, ohne die Aufgabe 
nochmals eintippen zu müssen, 
iip": Pausen. Der Computer hält 

an einer geeigneten Stelle an. Hat 
der Computer den Wunsch entgegenge¬ 
nommen, so zeigt er dies mit einem 
invertierten "P" an. 

"P" +SHIFT : Ihr Rechner hält so¬ 
fort und rechnet auch nicht weiter. 
Wird eine der beiden Pausefunktio¬ 
nen benutzt, so erscheint rechts 
die Meldung CONT. Durch "C” kann 
dann die Rechnung fortgesetzt wer¬ 
den. 

”N": Wenn Sie eine neue Eingabe 

machen wollen, so können Sie dies 
mit ”N” tun, egal ob der Rechner 


arbeitet oder bereits schon fertig 
ist oder eine Eingabe erst kontrol¬ 
liert. 

"F": Sie können mit "F” in den 

Fast-Modus übergehen. In geeigneten 
Situationen schaltet der Computer 
selbst in den Slow-Modus zurück. 
"S”: Unterbricht den Fast-Modus. 

Sollte aber irrtümlich die Taste 
"D” für diesen Zweck benutzt worden 
sein, so wird der ZX dies ausfüh¬ 
ren. 

"M": Sorgt für eine anschaulichere 

Abarbeitung der Aufgabe. Durch 
nochmaliges Drücken bzw. durch 
"NEWLINE" wird diese Funktion wie¬ 
der abgeschaltet. 

"T": Drücken Sie auf das "T" oder 

die "1", meldet sich ein Lehrer, 
(Teacher). Er wird seine genauen 
Kommentare geben. 

Sie haben nun die Wahl zwischen 
Modus "1" und "2". Drücken Sie noch 
auf "2", so wartet der Lehrer bis 
die Taste "C" gedrückt wurde. Das 
Abschalten geht hier wie mit "M". 
HINWEIS FÜR DIESE SONDERFUNKTIONEN: 
Sie können diese nur ansprechen, 
wenn die untere Reihe diese auch 
enthält. Die Funktionen werden 
nicht sofort reagieren. Bitte drük- 
ken Sie also diese Tasten, bis der 
ZX81 auch reagiert. Dies dauert oft 
etwa eine Sekunde lang. 

Roland Schuff 


1 REM MULTIPLIZIEREr-4 


UON R.SCHÜFE 


FUER CHIP-SPECIRL 

3 GOTO 9675 
5 CLS 
10 SLOU 
15 GOSUB 8155 

£0 PRINT CHR$ 0;S$(3 TO );CHR$ 
OjCHR$ J+CHR$ 0;"MULTIPLIKRTION 
EN-DIUISIONEN : " ; CHR$ 0+CHR$ J,;CH 
R$ J.;TRB 31;CHR$ Ü + S$(l TO ) ; RT 
10,0.; CHR* J+S$i;3 TO ) +CMR$ JjCHR 
$ INPUT THE COMPLET EXERCI 

SE<''.:CHR$ U+CHR$ UjTRB 13;S*( TO 
7:i;TRB 31;CHR* J;S$;RT 15,0; "NE 
ULINE = MENUE";TRB £0;"->(F)EEDB 
RCK";RT 17,£3;"BY SCREEN" 


30 POKE 164-18,2 
35 INPUT R$ , 

4-0 IF LEN R$=0 THEN GOTO 9670 
50 IF R$i:i;i="F" THEN GOTO 3E3 
55 SLOU 

60 IF CODE R$(l]i>£5 RND CODE R 
$(1J<£S OR (CODE R$(l)>153 RND C 
ODE R$(i:i;156J THEN LET R$=CHR$ 
23+R* 

65 PRINT RT 1,1;U$(3 TO );RT 1 
,1-(LEN R$ ;>30) ; R$; RT ll,l;Ui$( TO 
30:i.;RT 1£,1.;U$(3 TO .1 ; RT 11,2.:” 

MOMENT I CONTROL YOUR INPUT";RT 
15,0;U$+U$+U$ 

70 GOSUB 8100 
75 GOSUB 2E3 
80 LET H*="" 

85 FOR 0=1 TO LEN R$ 

90 IF CODE R$(0) RND CODE R$(0 
)<>20 THEN LET H$=H$+CHR$ (CODE 
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R$(0:»-(.J AND CODE A$ <Q) > 141) ü 
95 FOR W = 1 TO 21 STEP 3 
100 IF CODE INKEY$ THEN G05UB P 
105 LET D=D+i:CODE A$iO)=UAL Z$t 
W T U U + i=! J J 

110 LET M=r-1+iCODE A$(0)=UAL Z$( 
y+21 TO U+23? :• 

115 NEXT UJ 
120 NEXT Q 
125 LET A$=H$ 

130 IF D>1 OR M>1 OR NOT (D+M) 
THEN GOTO 9770 
135 FOR T=1 TO LEN R$ 

140 FOR U=1 TO 42 STEP 3 
145 IF CODE INKEY$ THEN GOSUB P 
150 IF CODE R$«:T}=UAL Z$ (Ul TO U 
+2) THEN GOTO 170 
155 NEXT W 
160 NEXT T 

170 LET N$=R$( TO T-1) 

175 LET A$i;T:i=CHR$ (CODE A$(Tli- 
(35 AND CODE R$ (TÜ =59) - (16 RND C 
ODE R$ (T:i =39) - (27 AND R$(T)=’'H’*) 
-(17 RND R$ (T) =’'D”) - (39 RND R$ (T 
) ="Z'* ) ) 

180 LET T$=R$(T+1 TO ) 

185 IF LEN T$ THEN IF CODE T$(l 
)=26 OR CODE T$(l)=27 THEN LET T 
$=STR$ 0+T$ 

190 FOR 0=1 TO LEN R$-l 
195 IF CODE INKEY$ THEN GOSUB P 
230 IF C0DE (N* +T$) (G) < 25 0R C0 
DE (N$+T$)(O) >37 THEN GOTO 9760 
220 NEXT O 

230 IF NOT LEN T$ THEN LET T$=N 

$ 

235 IF NOT LEN N$ THEN LET N$ = ‘' 
0 " 

240 GOSUB 2600 
250 GOSUB 9152 

260 IF K OR G THEN GOSUB 9210 
290 IF D AND NOT URL N$(l) RND 
LEN N$>1 THEN GOTO 9550 
300 IF D AND NOT URL T$(l) RND 
LEN T$>1 THEN GOTO 9565 
310 SLOU 

320 LET U=LEN T$+LEN N$ 

330 PRINT RT 18-U/32,0, **EXERCIS 
E: RT 20-U/32,0; N$; A$ (T) ;T$> RT 

11,2; Ul$ (4 TO ) ; RT 21-U/32,(LEN N 
$-1-1 RND LEN N$<33); (C»HR$ 2 RND 
M AND K AND LEN N$<33) .:RT 21-U/ 
32, (U-N RND U<33:i; (CHR$ 2 AND U< 
33 AND r-1 AND G) 

340 IF M AND U>31 THEN GOTO 906 

0 

350 IF M AND LEN T$>19 THEN GOT 


O 9730 

360 IF D AND LEN T$+((LEN T$>( 
+ (LEN T$=8 RND T$>5TR$ (lES/'G): 

>8 THEN GOTO 9745 
365 IF D AND NOT URL T$(l) THt 
GOTO 9715 

370 PRINT RT 11,6.; ■* RERDY FOR f 
OCESSING*’ 

375 GOSUB 9100 
380 LET X2=0 
385 LET R=1 
390 LET X3=0 
395 CLS 
400 LET R=1 

420 IF D THEN GOTO 4E3 
430 GOSUB 2E3 

450 PRINT RT 0,©;N$;R$(T) ; T$; I 
1,0;5$( TO U+1);RT 1,LEN N$-I 
; (CHR$ 132 RND K) ;AT 1,U-N; (CH! 
132 AND G) 

470 LET ZX = 19-(7 AND LEN T$>1: 
500 DIM D$ (LEN T$,U) 

550 FOR 0 = 1 TO LEN T$ 

555 POKE C+LEN N$+0,PEEK (C+Ll 
N$+0:i+(.J AND O) 

560 LET A=0 

570 FOR Ul=LEN N$ TO 1 STEP -1 
580 POKE C+UI-1,PEEK (C+U!-l)+(. 
RND O) 

600 LET R$=STR$ ((URL T$ (O) *Ul 
N$ (UD ) +R) 

620 IF 0>1 THEN GOSUB 3503 
640 LET A=i:URL R$(l) RND LEN I 
> 1 ) 

660 IF CODE INKEY$ THEN GOSUB 
670 IF V THEN GOSUB 8245 
710 PR INT RT 1 +0 , U +Q R $ ( LEN R 
, AT l+Q,U+Q-l; (CHR$ (CODE R$(l 
ü) RND LEN R$=2:i 
725 LET D$ (O,U+O-(LEN R$=2) T 
g+O)=R$ 

740 POKE C+g-l.PEEK (C+g-l)-( 
RND PEEK (C+g-1) >37) 

760 NEXT U 

770 POKE C+LEN N$+0,PEEK (C+L 
N$+Oj-(.J AND PEEK (C+LEN N$+Q 
37) 

780 PRINT RT l+Q,Ul+0-LEN R$+2 

$ 

790 NEXT O 

800 PRINT RT 0+1,0;S$( TO 1+U 
805 GOSUB 7E3 
810 LET A=0 
815 LET R$=3TR$ 0 
900 FOR S=U TO 1 STEP -1 
920 FOR U=(S-LEN N$ RND S>LEN 
$)+(5<=LEN N$) TO LEN T$ 
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930 IF NOT CODE D$(U,:5) THEN GO 
TO 1220 

950 LET R$=5TR$ (UAL R$+url D$( 
ü ^ S :i ) 

955 IF 0>1 THEN G05UB 3600 
960 IF O THEN GOSUB 14-80 
980 IF CODE INKEY$ THEN GOSUB P 
1200 NEXT U 

1220 IF 0>1 THEN GOSUB 3700 
1240 LET R$=STR$ UJRL R$+R) 

1250 IF Y THEN GOSUB 8245 
1255 PRINT RT 0+2. S.; (R$ (LEN R$) 
RND NOT (R$=CHR$ 28 RND 5<2:i).;fiT 
0+2.S-1; (C:HR$ (CODE R$ (LEN R$- ( 
1 RND LEN R$>l):i+U:i RND LEN R$>1 
]i ; RT 0+2.S-2; (CHR$ (CODE R$ (LEN 
R$-(2 RND LEN R*=3):i+j:i RND LEN 
R$=3:i 

1265 LET R=:(URL R$( TO LEN R$-(L 
EN R$ > 1 : 1:1 RND LEN R$>1) 

1270 LET R$=STR$ 0 
1300 NEXT S 

1330 PRINT RT 0+3 RND LEN T$<19.. 
0; (S$( TO 1+U) RND LEN T$<19:i.;RT 
Q+3 .U-(I+N:i ; ( (CHR$ 132 RND (K O 
R G) ) RND LEN T$<19ji;RT 0+4 RND 
LEN T$<18.0;(S$( TO 1+U) RND LEN 
T$<18) 

1345 GOSUB 7E3 
1360 LET F=1 
1370 GOSUB 9100 
1380 GOTO 5 
1400 LET SR=SR+1 

1405 LET R$=:CHR$ 3 + “NR . "+CHR$ 0 + 
5TR$ SR 

1415 FOR 0=1 TO LEN R$ 

1420 PRINT RT 0+13.0;CHR$ (CODE 
(R$ (O) ) +.J) 

1425 NEXT O 
1430 PRINT CHR$ 3 
1445 RETURN 

1450 IF INT (URL 2$/URL T$)=URL 
2$/URL T$ THEN GOTO 5310 
1475 RETURN 

1480 LET X=C+33+S+ (33#UI) 

1485 FOR B=0 TO PEEK X-(28 RND P 

EEK X)-(PEEK X>28:i 

1490 POKE X.PEEK X+J 

1495 POKE X.PEEK X-J 

1500 NEXT B 

1505 RETURN 

1510 LET X$=INKEY$ 

1515 IF X$ = '*T" THEN LET 0=2 RND 
O <2 

1520 IF X$ = '‘N“ THEN GOTO 5 
1525 IF X4=”R" RND R THEN GOTO 3 
80 


1530 

0 < > 2 

IF 

X$="1" 

THEN LET 

0=2 

RND 

1535 

IF 

X$="£" 

THEN LET 

0=3 


1540 

IF 

CODE X$=ll THEN 

GOTO 825 

0 

1545 

NOT Y 

IF 

X$=”P“ 

THEN LET 

Y = 1 

RND 

1550 

0 < > 1 

IF 

X$ = "M‘* 

THEN LET 

0 = 1 

RND 

1560 

LET 

0=0 RND X$<>CHR$ 118 

1570 

IF 

X$ = '*5" 

OR X$ = ‘*D" 

■ OR 

CODE 


X$=228 THEN SLOU 

1575 IF X$ = '*F“ OR CODE X$=229 TH 
EN FRST 

2000 PRINT RT 23.0;UI$;RT 23.9- (5 
RND O > 1) ; ( ■■R-" ) RND R;TRB ll-(5 
RND 0>i:i ; “S-N-F-r-l-T*’; (CHR4 0 + “ ( 
1-2) RND 0>1);TRB 24; •' (P) RUSE 
2005 IF D RND R RND 0<2 RND PC=2 
THEN GOSUB 2500 

2010 IF M RND R RND 0<2 RND PC=2 
THEN GOSUB 7E3 
2015 IF 0>1 THEN LET PC=2 
2020 IF 0<1 THEN LET PC=0 
2030 POKE C+784.53+(J RND Y) 

2050 POKE C+776-(5 RND O>i:i.50+( 
J RND 0=1) 

2055 POKE C+773-(5*RND 0>l).57+i: 
J RND 0>1) 

2060 IF 0>1 THEN POKE C+776+(2 R 
ND 0=3) . (155+0 RND 0>1) 

2080 RETURN 

2120 IF NOT I THEN GOTO 2200 
2130 LET M$ = '"‘ 

2140 FOR 0=1 TO LEN N$ 

2145 IF CODE INKEY$. THEN GOSUB P 
2150 IF CODE N$i:0)>27 THEN LET M 
$=r- 14 +N$ (O) 

2170 NEXT O 
2180 LET N$=r-1$ 

2200 IF NOT N THEN RETURN 
2210 LET H$=”" 

2220 FOR 0=1 TO LEN T$ 

2225 IF CODE INKEY$ THEN GOSUB P 
2230 IF CODE T$(0)>27 THEN LET H 
$=H$+T$ (O) 

2240 NEXT O 
2250 LET T$=H$ 

2255 RETURN 

2300 IF I=N THEN RETURN 
2320 IF I iN THEN GOTO 2400 

2339 FOR 0=1 TO CI-N) 

2340 LET T$=T$+STR$ 0 

2350 IF CODE INKEY$ THEN GOSUB P 
2360 NEXT O 
2370 RETURN 
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2430 NEXT O 
2450 RETURN 
2500 FÜR Ul = 17 TO 22 
2525 PRINT hT Ul,0,UI$ 

2530 NEXT U 
2540 RETURN 

2620 LET H$=CHR$ 26+CHR$ 27 
2630 IF NOT LEN T$ THEN LET T$=:5 
TR$ 0 

2640 FÜR Ul = l TO 2 

2645 IF LEN T$ = l RND T$=H$«:u;« TH 
EN LET T$=5TR$ 0 

2650 IF N$(LEN N$)=H$(Uj THEN LE 

T N$=N$i: TO LEN N $ -1 i 

2655 IF CODE INKEV$ THEN G05UB P 

2660 IF T$(LEN T$:i=H$(Ui:i THEN LE 

T T$=T$( TO LEN T$-i:i 

2570 NEXT Ui 

2675 FOR U=1 TO 2 

2680 IF N$(LEN N$}=H$»:Ui:i OR T$(L 
EN T$)=H$(Un THEN GOTO 2640 
2690 NEXT U 
2695 RETURN 
3000 FRST 

3005 PRINT RT 15,23.; CHR$ 171.: RT 

16., 23;S$i TO 9).;TRB 23.; Ul$ i TO 9) 

3010 GOTO 30 

3050 GOSUB 2E3 

3055 LET X3=:l RND X2 

3060 IF X2 THEN GOTO 3210 

3065 DIM E$C25,1+U) 

3075 FOR M=1 TO LEN T$+6-(RB5 (1 

7-LEN T$:i RND LEN T$>16:i 
3080 FOR F=1 TO LEN E$(1Ü 
3085 IF CODE INKEY$ THEN GOSUB P 
3090 LET E$ (H,F) =CHR$ PEEK (C+F + 
33* CM-13 -1) 

3100 NEXT F 

3110 PRINT RT M-l,0.;y$ 

3120 LPRINT E$(M:i 
3140 NEXT M 
3160 5L0U 
3170 LET X2=l 

3210 FOR 0=1 TO LEN T$+6+CC17-LE 
N T$:i RND LEN T$>16:i 
3215 PRINT RT O-l,0jU$.;RT Q - 1,0 
E $ C O :i 

3220 IF X3 THEN LPRINT E$CG*:» 

3225 IF CODE INKEY$ THEN GOSUB P 

3230 NEXT O 

3250 GOTO 9100 

3255 STOP 

3260 G O S U B 1400 

3270 GOSUB 9100 


3280 PRINT RT 0,0; Ul$ 

3285 LET E=0 
3300 RETURN 

3350 IF INKEY$=“0“ THEN GOTO 870 
0 

3380 IF INKEY$ = ”r-r' THEN GOSUB 85 
O0 

3390 IF CODE INKEY$=11S THEN GOT 
O 5 

3395 LET D = 1+CD RND D<ü:i 
3400 PRINT RT 23,0; CUI$ + ‘'* COPYRI 
GHT 1984 * SCHLIFF * IM BRUCH 2 * 
D - 6755 HOCHSPEYER * TEL. 0630 
5..-8633 *''+UI$+UI$) CD TO D + 3i;i 

3420 GOTO 3350 
3500 DIM 0$(li;» 

3505 LET CD =N$ CUU 

3510 LET 0$C2;i=CHR$ 23 

3515 LET 0$C3)=T$C0:i 

3520 LET Q$C4)=CHR$ 20 

3530 LET 0$i:7-LEN 5TR$ CURL T$CQ 

:« *URL N$cui;i:i to j =str$ curl n$cu 

ü *URL T$ CO) ;i 
3535 LET Q$C7)=CHR$ 21 
3540 LET 0$!:8)=5TR$ R 
3545 LET Q$C9)=CHR$ 20 
3550 LET O$C10 TO )=:R$ 

3570 PRINT RT ZX , 1; MULT IPLY “ ; RT 
2X+2,0;0$ 

3575 IF 0=3 THEN GOSUB 8245 
3580 RETURN 
3610 DIM Q$C6) 

3615 LET Q $ C1) =CHR $ CODE D $ C U,S) 
3620 LET O $ C 2 TO 3 )=*' = > “ 

3625 LET Q$(7-LEN R$ TO )=R$ 

3540 F' R J f'JT RT Z X , 0 " R C' D U F'" ; RT Z 
X+2,0; 0$; ui$ C TO 4) 

3645 IF 0=3 THEN GOSUB 8245 
3650 RETURN 
3705 GOSUB 7E3 

3720 PRINT RT zx+2,0; RR;“ = 
■■;URL R$+R 

3750 IF 0=3 THEN GOSUB 8245 

3760 RETURN 

4000 LET SR=0 

4005 GOSUB 2E3 

4010 LET PL=1 

4020 LET E=U+5 

4065 LET X=0 

4100 PRINT RT 0 , l; N$; R$ CT) ; T$; CH 

R$ 0;CHR$ 20 

4125 LET Z=INT CU/32)+3 

4130 LET Z$ = '“' 

4160 LET X=X+1 

4170 IF CODE INKEY$ THEN GOSUB P 
4180 IF X>LEN N$ THEN GOTO 4500 
4200 LET Z$=Z$+N$CX) 


2400 FOR 0=1 TO CN-I) 

2410 IF CODE INKEY$ THEN GOSUB P 
2420 LET N$=N$+STR$ 0 


I 
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4210 IF O THEN G05UB 5700 
4220 IF UAL Z$>=UflL T$ THEN GOTO 
4250 

4230 GOTO 4160 
4250 LET L=X+1 
4255 POKE 16507,0 
4460 G05UB 5350 
4465 LET X=X+1 

4470 IF X>LEN N$ THEN GOTO 5E3 

4475 LET Z$=2$+N$(X:i 

4480 IF O THEN G05UB 5700 

4485 LET L=L+1 

4490 GOSUB 5490 

4500 IF PEEK 16507 THEN LET L=X 
4590 GOTO 4460 
5010 GOSUB 1450 
5025 LET PL=:0 

5030 PRINT RT INT (E/32) ,E- ( INT 
(E/32)*32);CHR$ 26,RT 0,1,N$ 

5035 LET E=E+1 
5040 GOTO 5055 
5045 GOSUB 5350 
5050 GOSUB 1450 
5055 LET Z$=Z$+3TR$ 0 
5060 LET L=L+1 

5065 IF 0>1 THEN GOSUB 5710 

5070 GOSUB 5490 

5300 GOTO 5045 

5310 IF 0;2 THEN GOTO 5330 

5320 GOSUB 2500 

5325 PRINT RT 20,0; (*’** END OF E 
XERCISE **'• RND O) 

5330 GOSUB 9100 
5340 G OT O 5 

5350 LET K$=STR$ INT (URL Z$/URL 
T$) 

5360 IF CODE INKEY$ THEN GOSUB P 
5370 PRINT RT INT (E/32) ,E- ( INT 
(E/32) *32) K$, RT 0,1, (N$ RND PL 

RND O) 

5380 LET E=E+1 

5390 IF URL Z$<URL T$ THEN GOTO 
5490 

5400 LET Z=Z+1 

5410 PRINT RT Z,L-LEN 5TR$ (URL 
K$*URL T$);URL K$*URL T$ 

5420 IF CODE INKEY$ THEN G05UB P 
5430 LET Z=:Z + 1 

5450 PRINT RT Z.L-LEN T$-1,S$( T 
O LEN T$+l) 

F. 4 F 0 IF C O E> E IN K E Y * THE f' ■» G r? F U B P 
5470 LET Z$=STR$ (URL Z$-i;URL K$ 
*URL T$) ) 

5480 LET Z=Z+1 

5490 PRINT RT Z,L--LEN Z$,Z$ 

5500 IF Z>lS-(5 RND 0>1) THEN GO 
SUB 3200 


5520 IF L>30 THEN GOTO 8225 
5525 IF Y THEN GOSUB 8245 
5530 IF CODE INKEY$ THEN GOSUB P 
5555 RETURN 

5700 PRINT RT INT (X/32) ,X- ( INT 
(X/32) *32) CHR$ (CODE N$ (X) +U) 
5705 IF 0>=2 RND X<=LEN N$ THEN 
PRINT RT 17,0;"TAKE NUMERS OUT O 
F ; 

5710 PRINT RT 17,19; (“THE DIUIDE 
ND.“ RND 0>i:i 

5715 IF 0>1 THEN GOSUB 5750 
5720 IF 0=3 THEN GOSUB 8245 
5745 RETURN 

5760 PRINT RT 17,0;(U$( TO 2)+“H 
RNG ON ZEROS TO“ RND X>LEN N$);R 
T 19,0; Ut$( TO S-LEN STR$ (URL (Z 
$)+l));5TR$ (URL *(Z$));CHR$ 0; “ > 
= “;CHR$ 0;T$;CHR$ 0;- = >'Y;RT 19,2 
5; (“FRLSE“ RND URL Z$<URL T$),RT 
19,25;(“üaffli"+CHR$ O RND URL Z$ 
>=URL T$),RT 21,0;“DIUIDEND“;TRB 
12;“DIUISOR“ 

5780 RETURN 

7000 PRINT RT ZX,0;UI$( TO 10) ; RT 
ZX+2,0; Ul$ ( TO 11) 

7040 RETURN 
8000 LET N=0 
8005 LET 1=0 
8010 DIM U$(32) 

8015 LET S$=CHR$ 3 
8020 FOR 0 = 1 TO 5 
8025 LET 5$=5$+S$ 

8030 NEXT 0 
8040 LET ü=128 
8045 LET 0=0 
8050 LET H=9E3 
8070 LET Y=0 
8080 LET P=1510 
3100 LET D=0 
8110 LET N=0 
8115 POKE 16418,0 
8120 LET F=0 
8125 LET R=:0 
8130 LET G=0 
3135 LET PC=0 
8140 LET K=0 
8145 LET E=0 
8155 POKE 16386,252 
8160 POKE 16387,127 
8165 LET C=1+PEEK 16396+256*PEEK 
16397 

8170 POKE 16507,1 

8175 LET Z$=“0140590240410631421 
52151039061023050189118” 

8180 RETURN 

8205 LET Z=INT (E/32)+3 
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8220 LET L=L+LEN T$+Z*.35 
8225 IF L>30 THEN GOSUB 8300 
8235 PRINT RT Z,L-LEN Z$-3; '• = >••+ 
CHR$ 0,Z$ 

824.0 RETURN 

8250 PRINT RT 23,0;U$(9 TO ) , 
EEI3Q "CHR$ 0 
8255 SLOI.-.I 

8260 IF IN K E Y $ <> ‘ ‘ C ‘' THEN G OT O £^2 
60 

8265 LET Y=0 
S270 l?UTU 
8230 RETURN 
3305 SLOU 
3320 GOSUB 9100 

3370 IF E>256 THEN GOSUB 3260 
3375 GOSUB 2E3 

3380 FOR Q = 1 + INT i:E/32) TO 22 
3335 IF CODE INKEY$ THEN GOSUB P 
3390 PR INT PT Q , 0 3 $ : PT O , 0 ; U $ 
3400 NEXT O 

3430 LET Z = INT (E/32:i +3 
3450 LET L=4 +i:LEN T$-(LEN T$-LEN 
2$:i :» 

3490 RETURN 

3510 PRINT PT 22,8; ••> (CURSORKEYS 
:i < ; TPB O; ■* STOP = (S) / PLOT = (1 ü / 

UNPLÜT=(0)“ 


8520 

LET P=0 


3530 

LET B=0 


3540 

LET Z=1 


3550 

LET B=B+(INKEY$=”3 

” PND B < 6 

3) - (INKEY* = "5'‘ AND B>0) 


3560 

LET P=P-(INKEY$=”6 

” PND P>0 

) + (INKEY * = " 7 AND A < 43) 


3565 

UNPLOT B,P 


3570 

PLOT B,P 


3575 

IF INKEY $ = '‘l’' THEN 

LET Z=0 

3530 

IF INKEY $ = '‘0*‘ THEN 

LET Z=1 

3535 

IF Z THEN UNPLOT B 

.. P 

3590 

IF INKEY $ ='’S” THEN 

GOTO 363 

0 



«5600 

G OT O 3550 


3630 

PRINT PT 22,0.iU$ 


3660 

RETURN 


8700 

PRINT PT 23,0,U$ 


3705 

CLEPR 


3710 

SAUE 


3730 

RUN 


3300 

IF M PND F THEN GOTO 3050 

3305 

COPY 


3310 

GOTO 9105 


9010 

PRINT PT 11,1;U $(3 

TO );hT 

11,10; • ’'' 


9035 

G O S U B 9100 


9040 

GOTO 5 . 


9065 

PR INT AT 10,0; U *; 




9070 GOSUB 9100 
9090 GOTO 5 
9100 SLOUJ 

9105 PRINT PT 23.0: PT 23,0; '*0 

OPY’‘:TPB 12 : "IHIWilN** ; PT 23,29-( 
23 PND E >256) , '•N*'; C'-R” PND R) , P 
T 23,22; (••NEU SCREEN" PND E>256:' 
9110 PRINT PT 23,ll;CHR$ J;TPB 1 
9;CHR$ J;RT 23,11;CHR$ 146;TPB 1 

9;CHR$ 147 
9115 LET B$=INKEY$ 

9120 IF LEN B$=0 THEN GOTO 9110 
9125 PRINT PT 23,0,U$ 

9130 IF B$ = *‘N” THEN GOTO 5 
9135 IF B$ = ‘'C*' OR = THEN GO 

T Ü 3300 

9140 IF B$ = ''R“ PND R THEN GOTO 3 
85 

9145 IF CODE B$=113 THEN RETURN 

9150 GOTO 9105 

9152 LET K=0 

9155 FOR 0=1 TO LEN N$ 

9160 LET K=K+(N$(O)=CHR$ 26 OR N 
$i:o:i=CHR$ 27 :i 
9165 NEXT O 

9170 IF K;>1 THEN GOTO H 

9175 LET G=0 

9130 FOR 0=1 TO LEN T$ 

9185 LET G=G+i:T$ (Q) =CHR$ 27 OR T 
*(0:i=C:HR* 26;« 

9190 NEXT O 

9195 IF G>1 THEN GOTO H 
9200 RETURN 
9210 LET 1=0 
9220 LET N=0 

9230 IF K<>1 THEN GOTO 9300 
924-5 FOR 0=LEN N$ TO 1 STEP -1 
9255 IF CODE N$(0:i<28 THEN GOTO 
9265 

9260 NEXT O 

9280 LET I=LEN N$-0 

9300 IF G;:>1 THEN GOTO 9350 

9310 FOR 0=LEN T$ TO 1 STEP -1 

9320 IF CODE T$i:0:i<2S THEN GOTO 

9340 

9330 NE.XT O 

9340 LET N=LEN T$-0 

9370 GOSUB 2100 

9400 IF M THEN GOTO 9450 

9440 GOSUB 2230 

9530 RETURN 

9555 LET N$=N$(2 TO ) 

9560 GOTO 290 

9565 LET T$=T$(2 TO ü 

9570 GOTO 300 
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9645 FÜR T = 1 TO LEN T$ 

9650 PRINT RT T+LEN T$+5,2,D$(T) 

9655 NEXT T 

9660 RETURN 

9670 CLS 

9675 GOSIJB SE3 

9680 PRINT RT 7,2.: •*31308 = '‘"NEU 
LINE“ ■••'.: RT 9,2;‘’6RUE = •■••Q— th 

EN LORD •'■•M-'D.* , TRB 19 ; 5$ (23 TO 

:i ; RT 11,2“ r-10T lU = “ M.; RT 13 

,6.;“5ERUICE BY RUNN ING “ RT 15,2; 
•’ (5:i LOU- (FJ RST / (N) EU INPUT“ : RT 

13,6; RT 17,2; (R:i EPERT*'.; TRB 13; 

•’ (m:i ore explrinb“; rt 19 , 2 ; ■* (tü e 

RCHERS ■■“P-" OR •*‘'P” "+5HIFT** 

9685 5L0U 


9690 GOTO 3350 

9715 PRINT RT 12,4, ** RRGUMENT ZER 
O NOT RLLOUED" 

9720 GOTO H 

9730 PRINT RT 12,4;“2. FRCTOR TO 
GRERT FÜR MV; TRB 7;S$( TO 18:i 
9740 GOTO H 

9745 PRINT RT 12,8; D lU ISOR TO G 
RERT*' 

9750 GOTO H 

9760 PRINT RT 12,10;“NON NUMERIC 
9765 GOTO H 

9770 PRINT RT 12,8; (“OPERRNT NOT 
FOUND“ RND NOT (M+DÜ ') 

9780 GOTO H 


Change 


Beschreibung des Programmes (1500 
Bytes) 

Hexadezimal-Zahlen in Dezimal-Zah¬ 
len oder aus einem anderen Zahlen¬ 
system vermag dieses Programm umzu¬ 
wandeln. Die Umwandlung beschränkt 


sich auf Zahlensysteme mit der 
Basis zwischen 2 und 36. Bei Syste¬ 
men größer als 10 stehen die Buch¬ 
staben A - Z anstelle von Ziffern. 

Alexander Henkel 


1 REM CHRNGE 

iJON R. HENK EL 
EUER CHIP-SPECIRL 

90 CLS 
100 LET L$ = '' 


110 PRINT 


-CHRNGE- 


120 PRINT -DIESES PROGRRMM WR 
NDELT EINEZRHL RU5 EINEM BELIE 

EIGEN SYSTEM"; 

130 PRINT "ZUISCHEN 2 UND 36 
IN DIE ENT-SPRECHENDE ZRHL EI 
NES RNDERENSYSTEM5 UM." 

14-0 PRINT "BEI SYSTEMEN GROESSE 
R 10 STEHEND IE BüCHSTRBEN H-Z R 
N STELLE U Ü r-4 Z IE F E K N ( ZRHL < = 9 99 Q 9 
999)." 

BB- 

210 PRINT RT 12,0; 


Bi' 


>20 INPUT E$ 

>22 PRINT E.=5 
>24. PRINT RT 14,0, 

INPUT R$ 

PRINT R$ 

PR INT L $ L S L $ " 8ITTE GEDUL 

" ; L$; LS 

PAUSE 80 
PDKE 15437,.2.55 
ERST 

FÜR 1=12 TO 21 
PRINT RT 1,0.; L$ 

NEXT’ I 

EOR 1=1 TG LEN ES 

. " THEN GOTO 300 


226 

228 

230 

232 

233 
iL* ■ 4 
235 

ö 6 
2 7 
246 
246 
250 
260 
300 


IF 6$ ( I) 

N5XT I 
GOTO 1000 
IF I::;! DP 
0 1000 

310 FÜR J~I+1 TO LEN 
320 IF E$ ( J:> < “0 
HEN GOTO 1000 
340 NEXT J 
350 LET EIN=URL 
$) 


I=rLEN E$ THEN GOI 


ES; 

DP E$(J) 


‘9“ 


E${I-fl TO LEN E 
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360 IF £IN<£ OR EIN>36 THEN GOT 
O 1000 

365 L£T D TO I-lJ 

370 LET DEZ::::0 
380 FÜR 8=1 TG I-i 
390 IF CODE £$GJ)-9S<0 ÜR CODE 
EÜ i: J) -98 > =EIN THEN GOTO lÜÜÜ 
4.00 LET DEZ-INT (DEZ+ÜCODE E $ (J 
:i -96) -^tEIN^-^ ( I-l-J; +0.5) 

410 NEXT ü 

490 IF DEZ>99999999 THEN GOTO i 
000 

460 FÜR 1=1 TO LEN H$ 

490 IF R^(I)<*’0‘’ QR R$(I)>‘'9‘’ T 
HEN GOTO 1000 
510 NEXT I 
520 LET PlüS=URL H$ 

530 IF RU:5-::9 OR hU5>36 THEN GOT 
0 1000 


600 

LET 

Z$ = ‘"' 




610 

LET 

T=DEZ/R!JS 



590 

) 

630 

LET 

R = INT i: 

•■T-INT T) 

+ HÜ5 

+ 0 . 

LET 

Z$=C:HR$ 

rR+9S)+Z 

$ 


640 

LET 

DEZ = INT 

T 



650 

IF DEZ>0 THEN GOTO 610 


675 

SLOU 




6 S0 

PRINT RT 17 

, 0; D$; TRB 

LEN 

D$ 


+ 2 .; 

6-65 PRINT TRB LEN D$.:EIN 

690 PRINT ,,2$.,, TRB LEN Z$;RU5 

700 GOTO 910 


1000 FOR 1=19 TO 91 
1010 PRINT RT 
1090 NEXT I 


1030 SLOIJ 
1040 PRINT RT 
EINGRBE. ‘ 

1050 GOTO 910 

9900 PRINT TRB 

9901 PRINT TRB 
9909 PRINT TRB 


1.0;L$ 

90,0 ; ''FEHLER 



NEUE 


9 y 0 o 
9904 
y y 0 5 

9 9 0 e> 

H '• 

9907 

s 

9906 

fä >> 

9909 

■ <• 

99 10 

u •• 

9911 
u •> 

99 19 

II <• 

9913 

a >■ 

9914 

9915 

9916 

9917 

9918 
9990 
T : 

y '=> y 1 
'=! 999 


PRINT TRB 15; •*! 
PRINT TRB 9; 
PRINT TRB 3; 

PRINT TRB 7; 

PRINT TRB 6; 

PRINT TRB 5; 

PRINT TRB 4; 

PRINT TRB 3: 

PRINT TRB 9.; 

PRINT TRB 1, 

PRINT TRB 0; 

PRINT TRB 0.; 

PRINT RT 0.0.1 



PRINT " iSINCLRIR ZXSlI •’ 

PRINT . ' ". - 

PR INT RT 19.17: "H. HENKEL" 
PRINT RT 14,17;"PRRE5ENTIER 

FOR 1=16 TO 90 
PRINT RT 1,0; 


9993 NEXT I 

9994 PRINT RT lü 
" RT 19,10; 


. 10. “C 


9995 PRINT RT 91.0. 
E TR5TE DRUECKENHBI 
y 9 9 1 - l; L E h P! 


ilTTE EIN 


9997 ShUE "B" 

9998 IF INKEY$ = "'‘ THEN GOTO 9998 
y y 9 y R U 


Plola 


Beschreibung des Programmes (4000 
Bytes, Druckeranschluß möglich) 
Beliebige mathematische Funktionen 
zeichnet dieses Programm auf den 
Bildschirm. Am linken und am unte¬ 
ren Rand wird eine Skala mit je¬ 
weils drei Werten ausgegeben. An¬ 
schließend können auf dem Bild¬ 
schirm bestimmte Teile der Funktion 


vergrößert dargestellt werden. Das 
Programm weist eine Besonderheit 
auf; Auch die Zeilen 22 und 23, die 
normalerweise vom Programm nicht 
zur Ausgabe benutzt werden können, 
werden hier mit Informationen be¬ 
schrieben. Das geschieht in den 
Programmzeilen 7000 bis 7120. Hier 
wird der Inhalt der Speicherzellen 
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16398 und 16399 so verändert, daß 
die PRINT-Position im Display-File 
auf die letzten beiden Zeilen ge¬ 
schoben wird. Damit können nun 
diese beiden Zeilen, die normaler¬ 
weise nur für Statusmeldungen oder 
für Eingaben zur Verfügung stehen, 
zur Ausgabe im Programm genutzt 
werden. 

Bedienung des Programmes: 1. Star¬ 
ten mit RUN, 2. Eingabe einer Funk¬ 
tion als Funktion von X, 3. Eingabe 
der linken und rechten Grenze, 4. 
Nachdem die Funktion gezeichnet 
wurde kann das Programm im weiteren 
durch verschiedene Tasten gesteuert 
werden. 

Taste "N": Es kann eine neue Funk¬ 
tion gezeichnet werden. 

Taste "0": Es wird wieder die alte 
Funktion in ihren alten Grenzen 


gezeichnet (zum Beispiel nach einer 
oder mehreren Ausschnittvergröße¬ 
rungen) . 

Taste "E”: Beendet den Programm¬ 
durchlauf 

Taste "A": Bereitet das Programm 
zur Ausschnittvergrößerung vor. Am 
oberen Bildschirmrand erscheint ein 
Stern, der nun mit den Cursortasten 
(Ziffern 5 bis 8) frei bewegt wer¬ 
den kann. Mit der Taste "S" können 
nun die Eckpunkte eines Rechtecks 
markiert werden, das nach Eingabe 
der vierten Ecke vergrößert wird. 
Es ist darauf zu achten, daß beim 
Setzen der Eckpunkte in der linken, 
oberen Ecke begonnen wird und dann 
im Uhrzeigersinn die anderen drei 
Ecken gesetzt werden. 

Taste "S": Setzt die Eckpunkte des 
Ausschnittes. Volker Debus 


0.99552693 




0 . 339394-14 

m 

m 

m 

m 


- 0.21673865 


-10 


0 10 

10 

rem 

pl Dt““programm 

20 

let 

wer t e=1000 

30 

let 

koordinateneystem 

40 

let 

graph=3000 

50 

1 et 

menue=4000 

60 

di m 

K (63) 

70 

di m 

y (63) 

80 

1 et 


90 

de 


100 

print "geben E>i 0 •f(x) 


JO 00 


110 

i nput 

f $ 


120 

pr i nt 

"f (!!)==" ; 

t:^ 

130 

pr i nt 

"geben s 

ie die linke 

grenz 

e ein 

II 


140 

i nput 

li 


150 

let 1 

i l = li 


160 

pr i nt 

li 


170 

pr i nt 

"geben s 

ie die rechte 

gr en 

1 ze ei 

n" 


180 

i nput 

re 


190 

let r 

el=r e 


200 

cl s 



210 

gosub 

werte 


220 

goBub 

gr aph 


2^30 

gosub 

koordina 

tenSystem 

2^40 

gosub 

7000 


250 

goto 1 

menue? 


1010 

rem werte 


1020 

■fast 



1030 

1 et m 

a;-!=-le20 


1040 

let min=le20 


1050 

for k 

=2 to 63 


1060 
i 

1 et X 

( k ) =1 i ( k 

-2)>(re-1i)/6 

1 

1070 

let >{ = 

=K (k ) 


1080 

1 et y 

(k)=val f 

t- 

1090 

1 et m 

ax ••= (y (k ) 

and y (k) >==max 

) + (ma 

ix and 

y (k ) < miax 

) 

1100 

1 et m 

in=(y(k) 

and y(k)<min) 

+ (mi n 

1 and 

y(k)>=min 

) 

1110 

nex t 

k 


1 120 

i f b $- 

="a" then 

let max^amax 

1130 

if b 

=="a" then 

let min=amin 

1140 

ior k 

=^2 to 63 


1150 

let y 

(k)=int ( 

(y(k)-min)/ (m 
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ax-min)*39+.5)+4 

5230 

1160 

n ex t k 

5240 

1170 

slow 

5250 

1 180 

return 

5260 

2010 

rem koordinatensystem 

5270 

2020 

for i=0 to 31 

5280 

2030 

print at 20,i!i" " 

5290 

2040 

n ex t i 

5300 

2050 

print at 20,1;" " 

5310 

2060 

print at 20,16;" " 

5320 

207^0 

print at 20,31;" " 

5330 

2080 

print at 21,0;li 

5340 

2090 

print at 21,11;(li+re)/2 

5350 

2100 

print at 21,21; re? 

5360 

2110 

•for i =0 to 20 Io« . r 

A 5370 

2120 

print at i,0;" " ^ 

5380 

2130 

next i ■ ' 

■ 5390 

2140 

print at 0,0;max 

5400 

2150 

print at 9,0;(max+min)/2 

5410 

2160 

print at 19,0;min 

5420 

2170 

return 

5430 

3C) 10 

rem graph 

5440 

3020 

■for k=2 to 63 

5450 

3030 

i f y (1;) >=0 - antJ y (k ) -=43i t h e 

5460 

n plüt k,jy(k) 

5470 

3040 

next k 

2 

3050 

return 

5480 

4010 

rem me?nue 

5490 

4020 

i f inkey:$=’'" then goto 4020 

5500 

4030 

1 et nkeyii“ 

. 5) 

4040 

if then stop 

5510 

4050 

i f b:^="a“ then goto 5000 

« 5) 

4060 

if b$="D" then goto 6000 

5520 

4070 

if b “ n " t hen g ot o 80 

) ) /2- 

4080 

goto 4020 

5530 

5010 

rem ausschnitt 

) ) /2- 

5020 

let set=5410 

5540 

503^0 

let 2=0 

ö 1 

5040 

let s=10 

5550 

5050 

print at z , s; 

61 

5060 

d im z (4) 


5070 

d i m B ( 4) 

fT'i i n ) . 

5080 

let k=l 

inr izr -y 
iJiJ / 

5090 

if inkey:$="*‘ then goto 5090 

fTÜ n ) 

5100 

1 et c.$-i nkey:^ 

5580 

5110 

if then goto set 

5590 

5120 

if ci$^=''5*' then goto 5170 

5600 

5130 

if c:f=‘'6" then goto 5230 

6010 

5140 

if c^'="7'' then goto 5290 

6020 

5150 

if then goto 5350 

6030 

5160 

goto 5090 

6040 

5170 

rem 

7000 

5180 

i f s< = 1 t hen got o 5090 

7010 

5190 

pri nt at z , s; '* " 

6401 

5200 

let s=B-l 

7020 

5210 

pri nt at z , s; 

7030 

5220 

goto 5090 

f kt. 


rem 

i-f z>==19 then goto 5090 

print at 2 ,b;" " 

let 2 = 2+1 

print at 2 ,s; 

goto 5090 

rem 

i-f 2<"0 then goto 5090 

print at z,s;" " 

let z=z--l 

print at 2 ,s; 

goto 5090 

rem 

if s>=31 then goto 5090 
pri nt at 2 ,b;" " 

1 et s==s+1 
print at 2 ,s;‘‘*'' 
goto 5090 
rem set 

p r i n t a t 2 , b ; k 
1 et 2 (k )=2 
let 5(k)=B 
let k==k + l 
let S“S+1 

i+■ k-3 or k™4 then let 5=s- 
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Renum 


Beschreibung des Prograitiities (560 
Bytes) 

BASIC-Programme lassen sich mit 
dieser kurzen Routine neu durchnu¬ 
merieren. Das Programm erzeugt ab 
Speicherzelle 30000 ein Maschinen¬ 


programm, das außerdem gegen 
Löschen und Überschreiben geschützt 
wird. Das Programm erklärt sich 
während des Ablaufes selbst. 

Volker Debus 


1 REH RENUM 


UON U.DEBU5 


EUER CHIR-SPEC IRL 


10 

REM 

RENUME 

lER IN 10ER-SCHRI 

TT EN 




20 

POKE 

16355. 

4.5 

30 

POKE 

16359 . 

117 

4-0 

LET 

Mä-“"3E7 

^6217D40010R00562 


35E00t50002B7-0£37 IPSEERSES 1923E52 
10R00094.4.4.DE1BE20E5C9'' 

50 FOR 1=1 TG LEN Mi-1 STEP 2 
60 P0KE 30000 + 1 NT ( ( I - 1) 2 , (C 


OC'E M $ ( I “25 ) + 15 +CODE M $ ( I + 1) -25 
70 NEXT I 

0 ö p p I NT ' ’ 5 C H P ITT U EITE-- ? ( M R X 

. 2 5 5 j “ 

90 INPUT R 
100 POKE 30006.R 
110 PÜKE 30026 . R 

120 PRINT "5TRRTEN UÜN RENUMBER 
HIT : " , • • I'üPiMäl'‘ , 

130 PRINT "DRS BRSIC-PROGRP.HH K 
hnn nun GELüESCHT UERDEN" 

14-0 PRINT " HERREN DE RN DER SCHRI 
TTUEITE:“,"PGKE 30006,R",,"POKE 
30026 , R’‘ 


Variisl 


Beschreibung des Programmes (200 
Bytes, Druckeranschluß möglich) 

Alle in einem BAS IC-Programm be¬ 
nutzten Variablen, “Variablenfelder 
und FOR-NEXT-Schleifen, lassen sich 
mit diesem nützlichen Hilfsprogramm 
auf listen. ' Die Variablen werden in 
chronologischer Reihenfolge ausge¬ 
geben, d.h. die zuerst initiali¬ 
sierten Variablen stehen am Anfang 
der Variablen-Liste und auch am 
Anfang des Variablenbereiches im 
RAM. Da der ZX81 bei der Suche nach 
einer Variablen immer vorne im 


Variablen-Speicher beginnt und die¬ 
sen dann bis zur gewünschten Varia¬ 
blen absucht, ist die Zugriffszeit 
um so kürzer, je früher sie in der 
Variablen-Liste aufgeführt ist. Die 
genaue Kodierung des ersten Zei¬ 
chens des Variablen-Namens, die zur 
Unterscheidung des Variablentyps 
dient, ist im Handbuch des ZX81 auf 
den Seiten 172 bis 174 aufgeführt. 
Anhand dieser Aufstellungen ist das 
Programm leicht nachzuvollziehen, 
wenn Kenntnisse der Maschinenspra¬ 
che vorhanden sind. 
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Das Programm ist für die Eingabe im 
RAMTOP-Bereich von 30000 bis 30160 
vorgesehen, läßt sich jedoch ohne 
Probleme in einen anderen Bereich 
umpoken. Dazu muß lediglich der 
Befehl in den Speicherzellen 30084 
ff. abgeändert werden. Vor dem 
Eintippen muß der RAM-TOP-Bereich 
durch die Systemvariablen 16384 und 
16385 korrigiert werden; in meinem 
Beispiel wäre das durch die beiden 
Befehle POKE 16384,48 und POKE 


16385,117 zu erreichen.Gestartet 
wird das Programm mit RAND USR 
30000. Wird mehr als eine Seite 
ausgegeben, können die folgenden 
Seiten mit der Taste C=CONT aufge¬ 
listet werden. Ein Abbruch läßt 
sich mit BREAK durchführen. Dies 
ist nötig, um eine Seite mit dem 
Befehl COPY auf dem Drucker auszu¬ 
geben. Das Programm ist lauffähig 
in der 16-K-Version. 

Ingo Daniels 


DEN U 


1 REM MINDESTENS 170 BELIEBIG 
REICHEN 

2 REM URRLI5T 

UON I.DRNIEL5 
EUER CHIP-SPECIRL 

amaogisBEB 

BYTES : •* 


5 REM HS 

10 SCROLL 

11 PRINT "RDRE5SE: 

12 SCROLL 

13 PRINT •*- 

14 SCROLL 

15 PRINT 
le. SCROLL 

17 FÜR 2=30000 TO 30160 
13 PRINT 2: 

19 INPUT BYTE 

20 POKE 2,BYTE 

21 PRINT TRB ISiPEEK 2 

22 SCROLL 

23 NEXT R 

24 SCROLL 

25 SCROLL 


REM-ZEILE 


31 LET RD=16514 

32 FÜR H=30000 TO 30160 

33 POKE RD.PEEK H 

34 LET hD=hD+1 
3 5 N E X T' R 

50 SCROLL 

51 PRINT ''OK. DNS URR ES . 

52 SCROLL 

53 PRINT "DIE ROUTINE HäBIMaHSl 

massBsmMä 

54 SCROLL 

55 PRINT "KRNM NUN GELOESCHT U 


SOLLTE DRS" 

59 SCROLL 

50 ppikt "PROGRRMM RBGESPEICHE 
RT WERDEN." 

6 1 S C R O L L 
6 2 S C R ü L L 

63 PRINT "RUSSERDEM MUSS UOR D 
EM LRDEN" 

64 SCROLL 

65 PRINT "RUF RDRESSE 3 
0000 " 

66 SCROLL 

67 PRINT "HERUNTERGE5ET2T UERD 
EN . " 

t« ö S L- RIJ L L 
70 STOP 
95 REM 

100 P R I NT "PR O G R R M M U R R IH B L, E N - L 
ISTE IN DIE RDRESSEN SOOOO BIS 3 
0160 GELRDEN" 

110 PRINT ,,"RUFRUF MIT: RRND 

USR 30000" 

120 PRINT "RBBRUCH MIT: BRERK" 
130 PRINT "NEUE SEITE: CGNT" 

200 REM 

210 F C! R 2 = 2 9 T ü 6* '3 
220 POKE 16S6S . 2 
230 LET T£ST2=1 
240 NEXT 2 
250 LET U$="" 

260 DIM H (1,2,3) 

2 70 DIM F$i 1234) 

2S0 STOP 

9 9 9 8 8 H U E '' U fl R LISS'' 

9999 GOTO 1 


ADRESSE BYTES 


ERDEN . 

30000 

42 

16 

64 

229 

205 

56 SCROLL 

30005 

42 

10 

225 

62 

22 

57 SCROLL 

30010 

6 

32 

215 

16 

253 

58 PRINT "UOR DEM ERSTEN START 

30015 

62 

128 

190 

200 

229 
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30020 

126 

230 

63 

203 

239 

30095 

24 

19 

62 

16 

215 

30025 

215 

126 

35 

254 

96 

30100 

62 

235 

205 

75 

9 

30030 

48 

5 

62 

13 

215 

30105 

62 

22 

215 

62 

243 

30035 

24 

79 

254 

128 

56 

30110 

205 

75 

9 

62 

17 

30040 

75 

254 

160 

56 

22 

30115 

215 

237 

75 

57 

64 

30045 

254 

192 

48 

11 

126 

30120 

62 

5 

184 

48 

10 

30050 

35 

135 

245 

15 

215 

30125 

205 

169 

11 

225 

205 

30055 

241 

48 

247 

24 

56 

30130 

242 

9 

235 

24 

129 

30060 

254 

224 

48 

33 

62 

30135 

205 

187 

JU 

124 

133 

30065 

13 

215 

62 

16 

215 

30140 

254 

124 

225 

200 

229 

30070 

62 

233 

205 

75 

9 

30145 

254 

237 

32 

242 

205 

30075 

35 

35 

94 

24 

3 

30150 

42 

10 

24 

230 

213 

30080 

62 

26 

215 

35 

205 

30155 

94 

35 

86 

195 

169 

30085 

202 

117 

29 

32 

246 

30160 

10 

0 

0 

0 

0 

30090 

175 

215 

62 

17 

215 








REM-Masler 


Beschreibung des Programmes (1300 
Bytes) 

Viel Zeit, um Programme von der 
Kassette in den Computer zu laden, 
spart dieses Programm. Es ermög¬ 
licht schnell und sicher zwei bis 
15200 Zeichen in eine REM-Zeile 
einzubauen. Das Programm ist eine 
Kombination aus Basic und einer 
wirkungsvollen neuen Maschinencode- 
Routine. Nach der richtigen Ausfüh¬ 
rung bleibt nur eine REM-Zeile, die 
vom Anwender gleich nach der Aus¬ 
führung besonders bei großen REM- 
Zeilen ab Zeile eins eingegeben 
wird.Laden Sie das Programm ein. Es 
erscheint nun ein kleines Menue. 
Sie können mit der Taste "S" das 
Programm bequem auf andere Kasset¬ 
ten kopieren. Dabei wird der Bild¬ 
schirm ausgeschaltet, damit die 
Einladung dieses kleinen Programmes 
schneller geht. Mit Tast "R" star¬ 
ten Sie das eigentliche Programm. 
Es erscheint nun unten am Bild¬ 
schirm die Eingabeaufforderung 
(Zeile 40). Geben Sie nun die An¬ 
zahl der Bytes ein, die Sie benöti¬ 
gen. Geben Sie nun noch eine wei¬ 
tere leere REM-Zeile ab Zeile eins 
ein.Danach können Sie noch den 
Slowmodus wählen. Sie dürfen zwar 
das gesamte Programm einschließlich 
der großen REM-Zeile listen, aber 
niemals die folgende REM-Zeile ent¬ 
fernen. 


BEIM EINTIPPEN ZU BEACHTEN; Geben 
Sie zuerst in die Zeile 2 folgendes 
ein: PRINT PEEK 16511+256*PEEK 

16512-2. 

Nun starten Sie in Zeile 1 eine 
REM-Zeile und füllen diese mit 
Punkten oder sonstigen Zeichen. 
Unterbrechen Sie öfter und geben 
mit "NEWLINE" ein. Starten Sie mit 
RUN. Sehen sie die Zahl auf dem 
Bildschirm. Diese zeigt die Anzahl 
der Zeichen in der REM-Zeile. Durch 
Hinzufügen oder Reduzieren der Zei¬ 
chen in der REM-Zeile sollten Sie 
genau 103 erhalten. Ist das der 
Fall, so löschen Sie das Programm. 
Dies ist nur die Zeile zwei. Die 
REM-Zeile muß bestehen bleiben. Nun 
geben Sie in einer Programmschleife 
in die Speicheradressen 16514 bis 
16615 das 103 Byte kleine Maschi¬ 
nenprogramm ein. Diese folgende 
kleine Eingabe-Routine muß nach 
erfolgreicher Anwendung wieder ent¬ 
fernt werden: 

10 FOR 1=16514 TO 16615 
15 INPUT X 
20 POKE I,X 
25 SCROLL 

30 PRINT I, PEEK I 
35 NEXT I 

Dies sind die 103 Zahlen für das 
Maschinenprogramm: 

Roland Schuff 
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1 REM GENRU 103 BELIEBIGE ZEI 
CHEN 

3 REM REM~MR5TER ^ 


UÜN R.SCHUPF 


EUER CHIP-SPECIRL 

5 SLOU 

10 PRINT TRB 7; ■'* REM-MRSTER * 
= ';RT 7.11; "NOTICE : RT 13,6; " 1 . 

KEY (R)";TRB 6;"3. 5 REM NEULINE 

*';TRB 6; ‘*3- SLOU'*;RT 18,10;"- 

-";RT 31 4-; " (5) RUE" ; TRB 30; 

"(R)UN" 

15 LET X$=INKEY$ 

30 IF X$=:*’S" THEN RUN 100 
35 IF X$="R" THEN GOTO 35 
30 GOTO 15 
35 CLS 

40 PRINT RT 31,0; "EiYTES? (3-15 
200 ) " 

45 INPUT X 

50 IF X<3 THEN GOTO 45 
60 POKE 32513, INT »;X/256) 

70 POKE 33513,X-365^PEEK 32513 
75 FRST 

80 DIM R(1+(1E3 RND X<2E3)) 

85 RRND U5R 16514 
100 POKE 16389,68 
105 FRST 
110 CLS 
115 SRUE "B" 

130 POKE 16389.128 
125 CLS 
150 RUN 


1170 PRINT "DIE MC-EINLESE-ROUTI 
NE KRNN NUN" 

1180 SCROLL 

1190 PRINT "GELOESCHT UERDEN-" 
1300 SCROLL 
1310 SCROLL 

1320 PRINT "UOR DEM ERSTEN STRRT 
SOLLTE DRS" 

1330 SCROLL 

1340 PRINT "PROGRRMM UEDOCH RBGE 
SPEICHERT" 

1250 SCROLL 

1360 PRINT "UERDEN." 

ADRESSE BYTES 


16514 

237 

75 

127 

64 

33 

16519 

130 

64 

17 

8 

127 

16524 

237 

176 

195 

23 

127 

16529 

33 

131 

64 

229 

42 

16534 

0 

127 

209 

25 

34 

16539 

12 

64 

42 

0 

127 

16544 

35 

35 

34 

127 

64 

16549 

42 

12 

64 

43 

54 

16554 

118 

35 

54 

118 

35 

16559 

62 

24 

6 

32 

54 

16564 

128 

35 

5 

194 

57 

16569 

127 

54 

118 

35 

61 

16574 

194 

55 

127 

54 

118 

16579 

42 

12 

64 

229 

33 

16584 

25 

3 

209 

25 

34 

16589 

16 

64 

35 

34 

20 

16594 

64 

33 

130 

64 

229 

16599 

209 

19 

54 

151 

237 

16604 

75 

0 

127 

11 

237 

16609 

176 

33 

126 

64 

54 

16614 

0 

201 

128 

■Me- 



1000 REM WBKKKtnttBKMKKtKBtBM 


1010 SCROLL 

1020 PRINT "RDRESSE: BYTES: 

1030 :5CROLL 

1040 PRINT "- - 

1050 SCROLL 
1060 PRINT 
1070 SCROLL 

1080 FOR Z=16514 TO 16616 
1090 PRINT Z; 

1100 INPUT BYTE 

1110 POKE Z,BYTE 

1120 PRINT TRB 13;PEEK Z 

1130 SCROLL 

1140 NEXT Z 

1150 SCROLL 

1160 SCROLL 


★ 

* 

★ 

5 Suchen Sie ein ganz bestimmtes Programm 

* für Ihre Problemlösung? 

* 

* 

J Wir bereiten laufend neue CHIP-Specials 

* vor. Wenn Sie uns Ihr Problem und den 

* Computer, auf dem es geschrieben werden 
J soll nennen, haben Sie die Chance, es 

J in einem der nächsten CHIP-Specials zu 

* finden, über Ihren Vorschlag freut sich: 

* 

J Die Redaktion CHIP-Special 

* Armin Schwarz 

* Bavariaring 8 

* 

* 8000 München 2 

* 

******************************************* 
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Ordnen, Organbieren, Archivieren 


KasseHenardhiv 


Beschreibung des Programmes (1500 
Bytes, Druckeranschluß möglich) 

"Wer Ordnung hält,ist nur zu faul 
zum Suchen!" Wem dieses Motto nicht 
gefällt, sollte sich schleunigst an 
dieses nützliche Programm machen. 


Das einfach aufgebaute Inhaltsver¬ 
zeichnis sorgt dafür, daß Sie den 
Überblick über Ihre Computer- 
Kassetten nicht verlieren. 

M. Scholz 


Sr 


1 REM 

2 REM * KfiSSETTEN- 

3 REM * Ih4HRLT5UERZEICHNI:5 * 

4. REM * ^ 

5 REM * M.SCHOLZ ^ 

6 REM *if*^*rfr*-5e********^**-5e#^* 


10 DIM R$(15,20) 


20 DIM Z$(15,3:i 

30 LET T$="KRS3ETTEN~INHRLT3UE 

RZEICHNIS" 

40 



50 

LET S 

= 0 

60 

GOTO 

100 

70 

REM 0 


75 

CLS 


80 

PRINT 

T$ 

85 

PRINT 

X$( TO LEN T$) 

90 

RETURN 

100 

REM B 


110 

GOSUB 

70 

120 

PRINT 


130 

FOR X 

=1 TO 15 

140 

PRINT 

X,TRB 3,Z$(X),TRB 7; R 

$ (X :i 



150 

NEXT 

X 

160 

PRINT 

RT 20,0;"IIRDEN PROGRR 


MM, fliTELZEILE ODER KERZEICHNIS 
RENDERN?** 

170 INPUT E$ 

180 IF E$<>”L“ RND E$<>‘'T“ RND 
E$<>“U” THEN GOTO 170 
185 IF E$ = **L’* RND S = 1 THEN GOTO 
630 

190 IF E$=“T” THEN GOTO 400 
200 PRINT RT 20,0;“PROGRRMM-NR. 
EINGEBEN 


0 


210 INPUT X 

215 IF X<1 OR X>15 THEN GOTO 21 

) 

220 IF E$ = “'J‘’ THEN GOTO 500 
240 FÜR Y=1 TO 20 

250 IF R$(X,Y:i=‘' ■' THEN GOTO 27 


260 NEXT Y 
270 LET Y=Y-1 
275 IF Y=0 THEN GOTO 210 
280 PRINT RT 20,0.1 "BRND BIS ** ; Z 
$ (X) *• SPULEN.; RECORDER" , "EINSCH 

RLTEN; EINE TRSTE DRUECKEN" 

290 PRUSE 4E4 

300 PRINT RT 20,0;" 


310 PRINT RT 20,0;"PROGRRMM 


0 


; R$ (X , TO y:i ; " 

.. .. .. 

320 

PRINT "UIRD GELRDEN 

330 

PRUSE 100 


340 

LORD R$(X 

, TO Y) 

350 

GOTO 100 


400 

REM 


410 

PRINT RT 

20,0;"NEUE TITELZE 

ILE: 



420 

INPUT E$ 


430 

IF £$="" 

THEN GOTO lOO 

440 

LET T$=E$ 


450 

IF LEN E$ 

>32 THEN LET T$=E$ 

( TO 

32]i 


460 

LET 5=1 


470 

GOTO 100 

« 

500 

REM yU^=»^=»iMSHM«Sls<glMrlgl 

510 

GOi>UB 70 


520 

PRINT RT 

10 , 0 ; X, TRB 3;z$«:x;» 

; TRB 

7 ; R $ ( X :« 


530 

• • 

PRINT RT 

21,0,"PROGRRMMNRME 

540 

INPUT E$ 


550 

II 

LU 

Ll 

H 

THEN GOTO 570 

555 

LET R$i:x:i 

= E$ 

560 

PRINT RT 

10,7;R$ (X) 

565 

LET S=1 


570 

PRINT RT 

21,0; "ZREHLUIERK:5TR 

ND : 

(NNN) " 


580 

INPUT E$ 


590 

IF E$="" 

THEN GOTO 630 

600 

IF LEN E$<>3 THEN GOTO 580 

610 

LET z$Lx:;i 

=E$ 

615 

LET 5=1 


620 

PRINT RT 

10,3,Z*(X) 
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Finanzen 


630 REM 

64-0 PRINT flT 20,0; "SOLL DRS GEfl 
ENDERTE UERZEICHNIS GESPEICHERT 


830 PRINT RT 20,0RECORDER ü EBP 
SSEEISli.' EINSCHflLTEN UND EINE TRS 
TE DRUECKEN 


UERDEN? (ü/N:i 

’* 

640 

PRUSE 

4E4 

650 INPUT E$ 

660 IF E$ = “N'‘ 

THEN GOTO 100 

650 

PRINT 

RT 20,0;" 

670 IF E$=:*'U” 

THEN GOTO 600 

660 

PRINT 

HT 20,0;T $ 

660 GOTu 650 

800 REH (nj5FiaigmifcM=rdai<Ba=iag 

670 

PRINT 

■' Ul IR D G E 5 P E IC H E R T 

610 PRINT RT 

20,0.; ''BRND RN DEN 

SSO 

PRUSE 

100 

RNFRNG SPULEN, 

ZREHLUERK RU 

900 

SRUE 

"INHRLfl" 

F 000 STELLEN 

*' 

910 

LET S 

= 0 

620 PRUSE 200 


920 

GOTO 

100 



Beschreibung des Programmes (5000 
Bytes) 

Den Bafög-Anspruch für unverheira¬ 
tete Studenten an Hochschulen, Aka¬ 
demien und höheren Fachschulen er¬ 
mittelt dieses Programm.Die benö¬ 
tigten Informationen werden vom 
Rechner im Dialog abgefragt.Nach 
§11,Abs.3 Bafög, bleiben Einkommen 
und Vermögen der Eltern unberück¬ 
sichtigt, wenn der Auszubildende: 

1. Ein Abendgymnasium oder Kolleg 
besucht. 

2. Bei Beginn des Ausbildungsab¬ 
schnittes das 30. Lebensjahr voll¬ 
endet hat. 


3. Bei Beginn des Ausbildungsab¬ 
schnittes nach Vollendung des 18. 
Lebensjahres fünf Jahre erwerbstä¬ 
tig war, 

4. Bei Beginn des Ausbildungsab¬ 
schnittes nach Abschluß einer vor¬ 
hergehenden, zumindest dreijährigen 
berufsqualifizierenden Ausbildung 
drei Jahre oder im Falle einer 
kürzeren Ausbildung entsprechend 
länger erwerbstätig war, 

5. Oder eine weitere in sich 
selbstständige Ausbildung beginnt, 
nachdem seine Eltern ihre Unter¬ 
haltspflicht erfüllt haben. 

Volker Debus 


10 

REh 

ShFOEG 




70 

IF riIE=0 TH 

E N G OT 

0 9 0 







60 

LET BED=:BED 

+ 125 




UON U - 

DEBU 



90 

LET BED=BED 

+ 55 




— 



— 

100 

IF NIE3=160 

THEN 

GOTO 1:30 



EUER C 

HIP- 

SPEC 

IRL 

110 

IF NIE >260 

THEN L 

ET NIE=260 







120 

LET BED=BED 

+ N-1IE- 

160) +:3y4 

20 

PR INT 

"BEREC 

HNüN 

G DE 

S BhFOE 

130 

PRINT PiT 9 . 

0 ; H $ 


RN:: 

:.PRUCH:: 

FUER 

UNUE 

RH . 

STUDIER 

140 

PRINT PT 6: 

0; 


ENDE hn hüeheren fruhschulen , RK '' 


RDEMIEN UND HOCHS 

CHULEM 

: Np! 

CH NE 

150 

LET BSä 

= " Ei E 

gILLIGUNGSZEITRP 

UFR:5:SÜNG " " BHF0EG 

"" UON 

u 6 

, 6:3 " 

UN " 




:30 LET P$ = ‘' 




160 

G 0 U 

1000 





•' 

170 

LET PN 

R=EIM 

'-250 

40 LET BED=4S0 




175 

IF PNP 

■:0 TH 

E LET P N P = 0 

50 PRINT PT 9,0 

:"UIEU 

lEL ! 

NIETE 

160 

PRINT 

PT 9 , 

0 ; P $ 

2PHLEN SIE NONhT 

L . 7 U E 

NN S 

IE BE 

190 

PRINT 

PT 9 , 

0:"UIE PLT SIND 

I IHREN ELTERN Uü 

HNEN . 

GEBE! 

N SIE 

SIE“ ' 

• 



0 EIN" 




200 

INPUT 

PLTER 


60 INPUT NIE 




210 

PRINT 

PT 9 = 

0,; "BLEIBT DP5 EI 
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Finanz« 


r- 4 K 0 MMEN UND UERMOEGEN IHRER ELTE 
RN' ftUSSER BETRRCHT-? (NRCH RhRRG . 
11 RBS-3 BhFOEG t J=:l ; N=0" 

520 INPUT FREI 

530 Ir FREI=:1 THEN GOTO 373 
540 PRINT hT 9,0;"BEGINNEN SIE 
EINE UEITERE SELB5TRENDIGE PU5BI 
LDUNG UND HRBEN IHRE ELTERN DIE 
U NT E R H K LT 5 P E L IC HT N O C H N IC HT E R r 
UELLT7 J-l.N-0" 

550 INPUT FREI50 

560 IF RLTER>=27 THEN LET FREIE 
0“1 

5 70 PR INT HT Q ,0 ; R ; H $ 

575 PRINT PT 9.0 " U lEU lEL UERMO 

EGEN HhBEN SIE?" 

280 INPUT UERM 

290 IF UERM>6000 THEN LET RNRr:R 
NR+ i:UERN-6000:s /15 
300 IF rRE 1 = 1 THEN GOTO 790 
310 PRINT RT 6,0 ; H $ 

320 P R I r-n' hT 6.0;" 

330 LET B$=" UÜRLETZTEN üRHR UO 
R DER RNTRhGSTELLUNG " 

340 GÜ5UB 1000 
350 LET hNE=EIN- 1450 
360 IF FRE150=1 THEN LET flNE=HN 
E-755 

370 PRINT PT 9,0; "UIEUIELE KIND¬ 
ER UERDEN INSGEShMT NRCH BPFOEG 
ODER NRCH PPRPG„ 40 PFOEG GEFÜER 

DERT7" 

380 INPUT X 

390 LET PNE=PNE-X*80 

400 PRINT PT 9.0,P$ 

410 PRINT PT 9,0;"UIEUIELE PNDE 
RE KINDER. UNTER 15 URHREN HPBEN 
SIE?" 

420 INPUT Y 
430 LET 5UM=0 
440 IF Y=0 THEN GOTO 530 
450 FÜR 1=1 TO Y 
460 PRINT PT 9,0; R 4 
470 PRINT PT 9.0;"UIEUIEL NÜNPT 
SEINKOMMEN HPT DPUOM KIND ";I 
480 INPUT P 

490 IF p>=340 THEN LET Y=Y-1 
500 IF P::-340 THEN LET H=340 
510 LET SUM=SUM4340-P 
520 NEXT I 

530 PRINT PT 9,0;"UIEUIELE PNDE 
RE KINDER UEBER 15 UPHREN HPBEN 
SIE*?" 

540 INPUT Z 

550 IF Z=0 THEN GOTO 640 
560 FÜR .1 = 1 TO Z 


570 PRINT PT 9,0.iPg5 
580 PRINT PT 9.0;"UIEUIEL MONPT 
SEINKuMMEN HAT DPUÜN KIND ";I 
590 INPUT H 

600 IF p>=440 THEN LET Z=Z-1 

610 IF P>44.0 THEN LET P=44.0 

620 LET 5UM=SUM+440-P 

630 NEXT I 

640 LET PNE=hNE~SUM 

650 LET PRO=hBS ‘PNE/4} 

660 LET K=X+Y+Z 

670 FÜR 1=1 TO K 

680 LET PRÜi0=PBS (PNE/10;! 

690 IF I>1 THEN GOTO 750 
700 IF PRO10>50 THEN LET PRO10= 
50 

710 GOTO 760 

720 IF I>2 THEN GOTO 750 
730 IF PRO10>120 THEN LET PRO10 
= 14’0 

740 GOTO 760 

750 IF PRO10>1S0 THEN LET PRÜ10 
= 180 

760 LET PRÜ=PRO+PRD10 

770 NEXT I 

780 LET PNE=PNE-PPO 

790 IF FREI=1 THEN LET PNE=0 

795 IF PNE<0 THEN LET hNE=0 

800 LET BED = INT ( BED-PNE .--X-PNP + 


5 .1 

810 

820 


330 
1000 
1010 
MM EN 
1020 
1030 
1040 
MMEN- 
E IM" 
1050 


PR INT PT 
PRINT PT 
n ".;BED; 


8 , 0 .; 

9,0; 


P4 
•' > > 


DM" 


STOP 

PRINT RT 9.0;P$ 

PR INT PT 9,0 " U lEU lEL E INKO 

HABEN SIE IM" ; B4; "*?'* 

INPUT EIN 
PRINT PT 9,0;P$ 

PPINT PT 9,0;"UlEUlEL EINKO 
UND KIRCHENSTEUER HRBEN SI 


; B$; "BEZAHLT-?" 
INPUT 3TEU 


1060 PRINT PT 9,0: P $ 

1070 PRINT PT 9.0;"SIND SIE RENT 
ENUER5 ICH£RUNGSF'PL ICHT IGER PRBE I 
TNEHMER? ü = 1 /’N =0 " 

1080 INPUT S 

1090 IF 5=0 THEN GOTO 1130 
1100 LET SOZ =EIN/100 *18 
1110 IF SOZ>9900 THEN LET S0Z=99 
00 

1120 GOTO 1290 
1130 PR INT PT 9,0 .; P 4 

1140 PRINT PT 9,0;"SIND SIE NICH 
T R E fT E N r J E R S IC HER U h\ G S PFLICHTIGE R 
ARBEITNEHMER? ü = 1/N =0" 
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1150 IMPUT S 

1160 IF 6=0 THEN GOTO 1S00 
1170 LET SOZ=EIN/100*11 
1180 IF 602>5000 THEN LET 602=50 
00 

1190 GOTO 1290 
1200 PPINT RT 9,0: R S 
1210 PRINT RT 9.0;"6IND 6 IE MICH 
TRRBEITNEHMER ODER RUF RNTRRG OD¬ 
ER WEGEN GERINGFUEGIGER BEECHREF 
T IG U N G U E R 61C H E R U N G 6 F R E IE R R R B E I 
T M E H M E R 7 J = 1 • •• N = 0'' 

1220 INPUT 6 

1230 IF 5=0 THEN GOTO 1270 

124-0 LET 502 =E IN/100 #31 

1250 IF 5 O 2 > 1 6 800 THE N L. ET 5 O 2 = 1 


6800 

1260 GOTO 1290 
1270 LET 5O2=EIN/100#11 
1280 IF 602>5000 THEN LET 602=50 
00 

1290 PRINT RT 9,0:R$ 

1300 P R I NT RT 9.0; ’' U IE UIE L 60 N ST 
IGES JAHRESEINKOMMEN HRBEN SIE? 
i;2 . B . RUSB ILDUNGSBEIHILFEN , KIND 
ERGELD ETC. i " 

1310 INPUT 6 O NEI 

1320 LET EIN =(EIN-6 O2-ST E U + 6 ON EI 
/12 

13 3 0 P R I NT RT 9.0R $ 

134-0 RETURN 


Buchrips 


Weltraum-BASIC-Abenteuer mit dem 
ZX81 

Für junge Computerfreunde. Autor 
Eberhard Scholz. Verlag: Vogel- 
Buchverlag, Würzburg 1984. 120 

Seiten. 18,00 Mark. 

Der Mikrocomputer ZX81 im Einsatz 
Ideen, Anwendungen, Programme. Au¬ 
tor: Thomas Guss. Verlag: Vogel- 

Buchverlag, Würzburg 1983. 112 Sei¬ 
ten. 20 Mark. 

Sinclair ZX81 BASIC Handbuch 
Das vollständige BASIC-Vokabular. 
Autor: D. Hergert. Verlag: Sybex- 

Verlag, Düsseldorf 1983. 180 Sei¬ 

ten. 28 Mark. 

Mein Sinclair ZX81 

Programme, Spiele, Grafik. Autoren: 
lan Stewart, Robin Jones. Verlag: 
Birkhäuser-Verlag, Stuttgart 1983. 
140 Seiten. 28,80 Mark. 

Lernen Sie das ZX81 ROM verstehen 
Erklärung der Funktionsweise des 
Maschinencodes und die von Be¬ 
triebssystem-Unterprogrammen. Au¬ 
tor: lan Logan. Verlag: Birkhäuser- 
Verlag, Stuttgart 1984. 186 Seiten. 
32 Mark. 


Einfache Zusatzgeräte für ZX Spec¬ 
trum, ZX81 und Jupiter Ace 
Beschreibung einiger elektronischer 
Schaltungen, die zusammen mit dem 
ZX81 verwendet werden können. Au¬ 
tor: Owen Bishop. Verlag: Birkäu- 

ser, Stuttgart 1984. 155 Seiten. 

29,80 Mark. 

Computer für jedermann - ZX81 und 
Spectrum 

Eine Fundgrube für alle Sinclair- 
Computer-Freunde. Autor: Wilhelm 
Kremer. Verlag: Idea, Puchheim 

1983. 205 Seiten, etwa 30 Seiten 

Programme. 32,00 Mark. 

Entdecken Sie die unendliche Dimen- 
sion Ihres ZX81 

Sämtliche Funktionen, über 100 Pro¬ 
gramme für den Sinclair ZX81 und 
80. Autor: T. Hartneil. Verlag: M. 
Hueber 1984. 148 Seiten. 29,80 

Mark. 

Assembler-Programmierung von Mikro¬ 
prozessoren (8080, 8085, Z80) mit 

dem ZX81 

Grundlagen und Einführung. Autor: 
P. Kahling. Verlag: Vieweg, Wiesba¬ 
den 1983. 185 Seiten. 38,00 Mark. 
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Weitere Programme 




Roulett * 
Grafikdemo * 
Balkendia¬ 
gramme * 

Sound Effects 
Adressenver¬ 
waltung * In¬ 
telligenztest 
Morsen * Part¬ 
nerwahl * 



Nim-Spiel * 
Mathematikübung 
Musikprogramm 
Hochauflösende 
Grafik * Tele¬ 
fonregister * 
Benzinver¬ 
brauchsrech¬ 
nung * Tips 
und Tricks 



Spiele 

Grafik + Musik 

Organisation 

Programmierung 

Wissenschaft 

Hobby 



Disketten und Kassetten auf Anfrage bei der Redaktion CHIP- 
Special/PE-Special, Bavariaring 8, 8000 München 2. 
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Reversi * Al¬ 
koholtest * 
Mädchen * 
Musik-Synthese 
Biorhythmus * 
Primzahlen * 
Elektronik * 
Elip Me * 
Computer-Lehr¬ 
gang * 



Spiele 

Grafik 

Musik 

Organisation 

Wissenschaft 
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In diesem Heft 


Lernspiel 

Weltkarte 

Alphanumeric Invaders 
Vokabel-Trainer 

Grafik 

Multigraph 

Sport + Spiel 

Schützenscheibe 

Abenleuerspiel 

Elefanten - Friedhof 

Simulalionsspiel 

Lebensspiel 

Ratespiel 

Knobelzahl 

Strategiespiel 

Gomoku 

Reaktionsspiel 

Break-out 

Formel 1 

Geschicklichkeitsspiel 

Räuber und Gendarm 
Flipp-out 

Rocket-Pilot 

Labyrinthspiel 

Lab-Maus 

Glücksspiel 

Climber 

Luna 

Knuffi 

Mini-Action 

Weltraumduell 

Dschungelbuch 

Hungry-Dog 

Mathematik 

Multiplizieren und Dividieren 
Change 

Plota 

Tips + Tricks 

Renum 

Varlist 

REM-Master 

Ordnen, Organisieren 
Archivieren 

Kassettenarchiv 

Finanzen 

BAFÖG 




